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ABSTRACT 


This  thesis  is  an  attempt  to  prove  the  value  o-f  the 
Control  System  Design  Environment  by  designing  a  shipboard— 
or  ground-based  data  link  receiver  to  communicate  with  the 
data  link  installed  in  the  Coast  Guard  HH-65A  helicopter. 
The  Control  System  Design  Environment  was  intended  to  allow 
a  designer  to  use  a  highlevel  language  to  describe  the 
required  inputs  and  outputs  of  a  system.  This  high— level 
language,  the  Control  System  Design  Language  (CSDL)  is 
translated  into  a  list  o-f  primitives  by  a  Pascal  program, 
CSDL. PAS.  The  primitive  list  is  then  compiled  into  assembly 
language  by  a  FORTRAN  program,  NEWCSDL.FOR.  The  -final 
output  includes  the  hardware  and  software  lists  to  build  a 
controller  that  meets  the  designer's  specifications.  This 
particular  project  includes  a  project  design  much  more 
ambitious  than  any  previously  attempted  in  the  Control 
System  Design  Environment. 
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I.  INTRODUCTION 

The  design  o-f  electonic  equipment,  including  micro- 
processor-controlled equipment,  has  traditionally  been  a 
time  and  money  consuming  proposition.  The  design  must  be 
worked  out  manually  and  paper— tested ,  changes  and 
improvements  made,  and  more  paper-testing  performed.  When 
it  appears  that  the  design  is  feasible,  one  or  more 
prototypes  ar&  built  and  tested.  Building  prototypes  is 
expensive  because  they  a.r^  labor-intensive  and  -fail  to 
benefit  from  economies  of  scale.  The  use  of  computer  aided 
design  (CAD)  has  become  more  prevalent  in  many  design 
applications  in  recent  years  because  of  these  reasons.  One 
such  design  aid  is  the  Control  System  Design  Environment 
proposed  by  Matelan  CRef.  1]  and  implemented  by  Ross  CRef. 
i-  j  • 

The  Control  System  Design  Environment  makes  use  of  the 
Control  System  Design  Language  (CSDL) .  This  high-level 
language  provides  the  user  with  a  method  to  describe  the 
inputs  and  outputs  of  a  controller  and  specify  time 
constraints  for  completion  of  the  required  tasks.  A 
translator  program  takes  the  CSDL  problem  statement  written 
by  the  user,  tests  the  syntax,  and  then  generates  symbol  and 
variable   tables.    It   also   translates  the  CSDL  statements 


into  a  format  called  the  primitives  list  with  the  associated 
parameters  and  selection  criteria.  The  primitives  are  used 
as  macro  calls  to  the  realization  libraries.  These 
libraries  are  based  on  -families  o-f  microprocessors.  The 
original  library  built  by  Ross  consisted  solely  of  the  Intel 
8080  family.  Recent  additions  to  the  realization  libraries 
include  the  Zilog  Z80  by  Smith  CRef.  33  and  the  Intel  8086 
by  Cetel  CRef.  43. 

A  family  of  microprocessors  is  chosen  for  the 
implementation  by  the  designer  and  noted  in  the  CSDL 
description.  A  solution  is  attempted  and  if  it  fails, 
another  family  is  chosen  and  another  solution  is  tried.  If 
all  families  fail,  the  failure  is  reported  to  the  user. 
When  there  is  a  success,  software  is  generated  to  support 
the  hardware,  and  monitor  code  is  output  for  the  overall 
control  of  the  system.  The  automation  of  these  functions 
makes  it  possible  to  rapidly  and  inexpensively  design, 
build,  and  test  prototypes.  The  ability  to  describe  the 
functional  specifications  of  a  control  process  in  a 
high— level  language  and  let  the  CSDE  provide  output  in  form 
of  hardware  and  software  design  can  greatly  simplify  the 
work  involved  and  thus  lower  the  cost  of  producing  working 
prototypes. 

The  application  of  the  Control  System  Design 
Environment  (CSDE)  to  the  design  of  hardware  and  software 
for  controller  applications  has  been  explored  by  a  number  of 
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researchers  since  Ross  -first  designed  CSDL.  Some  o-f  those 
who  have  contributed  to  CSDE  include  Carson,  Cetel , 
Heilstedt,  Pollock,  Riley,  Sherlock,  Smith,  Walden,  and 
Woffinden.  Their  accomplishments  and  contributions  a.r&  all 
recorded  in  their  respective  theses.  CRefs.3— 133 

The  goal  o-f  this  thesis  is  to  attempt  a  validation  o-f 
the  Control  System  Design  Environment.  This  will  be 
accomplished  by  using  CSDE  to  design  a  microprocessor-based 
data  link  receiver  -for  the  data  link  to  be  installed  in  the 
Coast  Guard  HH— 65A  helicopter.  Since  CSDE  was  designed  to 
produce  process  controllers,  the  production  o-f  a  data  link 
receiver  will  demonstrate  the  -flexibility  o-f  the  Control 
System  Design  Environment  to  handle  additional  and  more 
complex  types  o-f  problem  descriptions  beyond  those 
considered  in  the  original  design  o-f  CSDE. 

This  project  is  a  departure  both  in  size  and  scope 
from  any  previous  attempt  at  using  the  CSDE  system.  Several 
researchers  have  used  CSDE  to  design  controllers.  Pollock 
used  CSDE  to  design  a  fuel  injection  system  for  an 
automobile  in  1981  CRef.  143.  Heilstedt  designed  digital 
filters  using  CSDE  in  1983  CRef  153.  The  latest  CSDE  design 
is  an  automatic  start  sequencer  for  a  jet  engine  performed 
by  Riley  in  1984  CRef.  163.  The  design  of  a  micro- 
processor—based data  link  receiver  is  a  much  more  ambitious 
application  than  any  of  these  previous  works.  It  requires 
the   movement  of  strings  of  data  throughout  the  system  while 


watching  -for  keyboard  input  from  an  operator.  The  goal  o-f 
the  project  is  concerned  with  the  use  and  abilities  o-f  the 
CSDE  and  not  with  producing  a  working  prototype  o-f  a  unit 
that  will  -function  according  to  Coast  Guard  requirements. 
The  data  link  receiver  will  be  a  subset  o-f  and  not  a 
complete  implementation  o-f  the  Coast  Guard  requirements  and 
specifications  as  outlined  in  the  next  chapter. 
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II.  DATA  LINK  RECEIVER  SPECIFICATIONS 

Development  o-f  systems,  including  computer  systems, 
can  be  costly  due  to  the  time  and  e-f-fort  required  to  design, 
build,  and  test  prototypes.  The  use  of  the  Control  System 
Design  Environment  can  dramatically  reduce  the  time  and 
effort  involved  in  designing  a  microprocessor  system  and  in 
producing  the  associated  software.  The  cost  of  a  system  is 
spread  over  the  number  of  items  produced,  and  in  general, 
prototypes  a.r&  produced  in  small,  and  thus  expensive, 
quantities.  The  automation  of  the  design  of  hardware  and 
software  promises  to  greatly  reduce  the  cost  of  the  design 
and  prototyping  portions  of  new  systems  development, 
especially  those  systems  that  will  be  produced  in  small 
numbers. 

An  example  of  a  system  currently  under  development  was 
chosen  for  an  implementation  under  CSDE  for  this  thesis. 
The  U.S.  Coast  Guard  is  presently  acquiring  a  new  heli- 
copter, the  HH-65A.  One  of  the  features  of  the  aircraft 
avionics  suite  is  a  data  link  transceiver  which  will 
automatically  send  and  receive  flight  information  data. 
Unfortunately,  there  is  no  compatable  transceiver  available 
for  use  aboard  Coast  Guard  cutters  or  at  air  stations.  The 
potential  contributions  to   a   wide   range   of   Coast   Guard 
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missions,  not  to  mention  the  sa-fety  of  -flight  ramifications, 
make  automated  communications  between  Coast  Guard 
operational  units  via  data  link  extremely  desirable. 

It  is  virtually  impossible  today  -for  the  U.S.  Coast 
Guard  to  conduct  truly  covert  law  enforcement  operations 
with  helicopters  deployed  aboard  cutters  or  based  at  air 
stations.  Safety  procedures  call  for  a  number  of  emitters 
to  be  employed  for  the  duration  of  the  flight.  A  properly 
equipped  smuggling  operation  can  gain  considerable 
intelligence  against  the  Coast  Guard,  particularly  from 
voice  communications.  Voice  communications  are  notoriously 
susceptible  to  monitoring  with  any  of  a  number  of  relatively 
inexpensive  scanners  available  in  the  electronics  market. 
Making  such  communications  protected  or  secure  can  deny  the 
smuggler  the  information  contained  in  the  transmissions,  but 
it  cannot  conceal  Coast  Guard  presence  during  the  critical 
preliminary  search.  A  system  is  needed  that  will  allow  the 
passing  of  safety  and  other  important  data  between  a 
helicopter  and  its  cutter  or  air  station  and,  at  the  sams 
time,  lend  a  higher  degree  of  covertness  to  the  operation. 
Since  the  new  HH-65A  helicopter  is  being  built  with  a  data 
link  capability  installed  as  part  of  its  avionics  package, 
there  exists  an  opportunity  to  conduct  covert  law 
enforcement  operations  with  cutters  or  air  stations.  Since 
the  data  link  can  send  position  and  operations  information 
automatically  using  preselected  time  periods,  the  pilots  are 
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relieved  of  one  more  duty  that  distracts  from  the  mission 
accompl i  shment . 

From  the  pilots'  point  o-f  view,  a  data  link  capability- 
means  that  their  attention  need  not  be  diverted  -From  the 
normal  scan  o-f  aircra-ft  instruments,  the  airspace  around  the 
helicopter,  and  the  water  or  ground  over  which  they  Ar^ 
searching.  The  onboard  computer  system  does  many  o-f  the 
navigation  functions  automatically  and,  with  the  install- 
ation o-f  data  link  capability,  can  make  the  required 
operations  reports  to  the  controlling  Coast  Guard  unit.  On 
a  typical  mission  the  aircrew  must  monitor  the  UHF  and/or  hff7 
radios  -for  communications  with  their  controlling  unit,  the 
VHF— AM  radio  -for  normal  communications  with  FAA  -facilities 
and  other  aircraft,  and  the  VHF-FM  radio  for  communications 
with  vessels.  Thus,  the  pilots  must  monitor  up  to  four 
different  radios  simultaneously  while  communicating  with 
other  members  of  the  aircrew  over  the  internal 
communications  system  (ICS).  These  communications 
requirements  tax  the  concentration  of  the  aircrew  and 
contributes  to  their  fatigue.  The  data  link  can  relieve  the 
crew  of  one  duty  while  enhancing  the  security  of  the  flight 
operation. 

The  Coast  Guard  Office  of  Operations  sent  a  memorandum 
to  the  Office  of  Research  and  Development  in  June  1983 
requesting  development  of  a  shipboard  version  of  the  data 
link.  The  performance  standards  and  specifications  listed  in 
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that  request  have  been  used  as  a  basis  -for  the  -functional 
speci -fi  cat  ions  -for  the  CSDE  implementation  o-f  this  thesis 
project . 

The  performance  standards  and  criteria  outlined  in  the 
request  -for  support  speci-fied  a  "shipboard  version  o-f  the 
data  link  built  into  the  HH— 65A  helicopter".  This  language 
does  not  reflect  the  possible  use  o-f  the  data  link  at  a 
Coast  Guard  Air  Station.  This  thesis  will  assume  that  the 
design  of  shipboard  equipment  will  be  more  than  capable  of 
working  ashore  as  well  as  at  sea. 

It  would  be  possible  to  use  a  commercially  available 
microcomputer  for  this  project.  Writing  the  assembly 
language  software  to  drive  that  system  would  not  be  too 
difficult.  This  approach,  however,  would  provide  a  software 
engineering  problem  without  adding  anything  new  to  the 
knowledge  base  of  computer— ai ded  design.  It  is  far  more 
enlightening  to  attempt  the  project  through  the  use  of  CSDE 
in  order  to  reduce  design  costs  for  new  systems. 

The  goal  of  this  project  is  concerned  with  the  use  and 
abilities  of  the  CSDE  and  not  with  producing  a  working 
prototype  of  a  data  link  receiver  unit  that  will  function 
according  to  Coast  Guard  requirements.  The  data  link 
receiver  designed  using  CSDE  will  be  a  subset  of  and  not  a 
complete  implementation  of  the  specifications  listed  by  the 
Office  of  Operations.   Because  of  this,   there   will   be   no 


14 


effort   to  fully  meet  the  performance  requirements  specified 
in  the  request  for  support. 

The  following  is  a  listing   of   the   requirements   and 
performance  standards  as  stated  in  the  request  and  describes 
how  each  will  be  addressed  in  this  project. 
The  data  link  receiver  system: 

1.  Must  operate  on  all  frequencies  (selectable) 
from  HF  to  UHF  (30.000-399.975  MHz). 

Comment:  This  is  outside  the  scope  of  the 
thesis  work  and  will  be  assumed  to  have  been  met. 
The  point  of  this  thesis  is  not  the  solution  of 
interfacing  problems  with  the  radio  transmitters. 

2.  Must  be  compatible  with  the  AN/ARC-182 
transceiver  on  the  HH-65A  helicopter. 

Comment:  This  is   outside   the  scope   of   the 

thesis   work   for   the   same  reasons  as  cited  in  the 

paragraph  above  and  will  be  assumed  to  have  been 
met . 

3.  Must  be  compatible  with  data  link  system 
presently  installed  in  the  HH— 65A.  This  system, 
manufactured  by  Collins,  operates  at  a  300  baud  rate 
with  data  burst. 
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Comment:  This  is  central  to  the  design  but 
little  information  was  available  -for  use  in  this 
thesis.  The  details  will  be  addressed  later  in  this 
section. 

4.  Must  be  o-f  the  smallest  size  and  weight 
practicable  for  installation  in  CIC/CSC  on  all 
flight-deck  equipped  cutters,  up  to  200  feet  from 
transceiver  and  antenna.  A  remote  readout  for  the 
pilothouse  is  extremely  desirable. 

Comment:  The  small  size  and  weight  should 
follow  from  an  efficient  design.  The  installation 
aboard  cutters  will  be  assumed  as  will  the  solution 
regarding  the  distance  between  transceiver  and 
antenna.  The  remote  readout  requirement  will  not  be 
addressed.  It  is  expected  that  the  addition  of  a 
remote  readout  will  be  relatively  simple  when  the 
system  design  is  complete. 

5.  Must  be  capable  of  automatically  tracking  and 
polling  at  least  three  aircraft  in  sequence  at 
selective  time  intervals  from  5-30  minutes,  and  must 
be  capable  of  manually  polling  an  aircraft  data 
1  i  nk . 

Comment:  These  requirements  will  be  met  in 
full  . 
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6.  Must  be  capable  of  providing  an  automatic 
response  to  an  aircraft  interrogation.  This 
response  would  give  the  cutter's  position  by  the 
best  electronic  navigational  aids  available  and 
would  provide  for  data  verification,  as  in  the 
HH-65A  system. 

Comment:  The  acknowledgement  of  a  message 
receipt  and  the  reply  with  a  position  will  be  met. 
Provisions  for  manual  input  of  navigation 
information  for  use  with  a  stationary  receiving  unit 
(an  air  station)  will  be  included.  This  will  also 
mean  that  manual  input  will  be  possible  aboard  a 
cutter  if  the  electronic  navigational  aids  become 
unusable.  The  data  verification  will  not  be 
included  for  reasons  stated  later. 

Attempts  to  acquire  the  actual  protocols  for  the 
communications  and  the  technical  specifications  for  the  data 
link  equipment  installed  in  the  HH-65A  helicopters  failed. 
Coast  Guard  sources  could  not  provide  the  necessary  infor- 
mation. The  Collins  Government  Avionics  Division  of 
Rockwell  International  Corporation,  makers  of  the  HH-65A 
data  link,  did  not  respond  to  requests  for  the  information. 
The  protocols,  message  formats,  and  other  specifications 
used  in  this  thesis  Are    estimates  of  what  and  how   the   data 
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link    system    should   work   and   not   the   result   o-f   any 
proppropri  etary  in-f  ormati  on. 

The  data  link  receiver  is  con-figured  as  shown  in 
Figure  1.  There  Are  -four  inputs!  from  the  radio  inter-face 
unit,  the  electronic  navigation  devices  interface  unit,  the 
clock,  and  the  keyboard.  There  a.re  -four  outputs:  to  the 
radio  inter-face  unit,  the  video  display  unit,  the  printer, 
and  the  clock.  All  inputs  to  and  outputs  -from  the  system  Are 
digital  signals  using  ASCII  code. 

There  is  a  pattern  o-f  levels  o-f  abstraction  in  this 
view  of  the  project.  At  the  center  is  the  data  link 
receiver  processor  designed  for  this  thesis.  This  processor 
is  responsible  for  the  proper  routing  of  messages  to  and 
from  memory,  calling  menus  from  ROM  and  sending  them  to  the 
video  display  terminal,  updating  positions,  and  performing 
tasks  in  response  to  input  from  the  keyboard.  It  is  assumed 
that  there  is  a  radio  interface  unit  that  receives  and 
processes  all  signals.  If  a  message  is  addressed  for  this 
particular  Coast  Guard  unit,  then  the  radio  interface  unit 
receives  the  message,  checks  the  correctness  of  the  message, 
and  sets  a  flag  to  tell  the  data  link  receiver  controller 
that  a  message  awaits. 

The  electronic  navigation  devices  are  an  abstraction 
for  the  actual  machines  that  compute  the  receiver  unit's 
position.  These  devices  may  include  LORAN-C,  OMEGA, 
navigation   satellites,   or  any  other  navigation  instruments 
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that  may  be  polled  by  the  navigation  inter-face  unit.  These 
devices  pass  their  position  information  to  the  navigation 
inter -face  which  sets  a  -flag  to  let  the  main  processor  l-now 
that  a  new  position  has  been  computed.  The  system  operator 
may  override  the  automatic  polling  o-f  the  inter-face  unit  by 
the  system  processor  in  the  event  o-f  a  malfunction  in  the 
navigation  instruments.  In  the  case  of  a  shore  unit,  there 
is  no  need  for  a  navigation  interface.  The  operator  would 
manually  enter  the  position  of  the  air  station  and  set  the 
system  to  prevent  the  interface  being  polled  in  the  case 
where  the  receiving  unit  is  a  shore  unit  and  thus  in  a 
constant  position.  The  same  method  could  be  used  for  a  ship 
at  anchor  when  most  navigation  devices  are  normally  secured. 
It  is  essential  that  the  ship's  position  be  sent  as  often  as 
necessary  to  keep  the  helicopter's  computer  updated. 

The  third  input  comes  from  a  clock.  The  clock  is  used 
for  time-stamping  the  positions  computed  by  the  navigation 
devices.  This  information  is  passed  as  part  of  the  acknow- 
ledgement messages  sent  in  response  to  a  helicopter's 
message  and  also  when  polling  helicopters.  The  radio 
interface  unit  is  assumed  to  have  direct  access  to  the  clock 
to  obtain  the  time.  The  output  to  the  clock  from  the 
processor  is  for  setting  the  date  and  time  and  is  entered  by 
the  operator  through  the  keyboard. 

All  commands  to  the  system  are  entered  using  a 
keyboard.    Menus  are    provided  on  the  video  display  unit  for 
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the  operator's  assistance.  Most  inputs  through  the  keyboard 
consist  of  single  keystrokes  for  the  selection  o-f  operations 
as  listed  in  the  menu  currently  displayed.  There  are 
several  cases  where  more  than  one  keystroke  is  required. 
When  an  aircra-ft  is  logged  into  or  out  of  the  system,  the 
clock  is  set,  or  the  position  of  the  receiving  unit  is 
manually  inserted,  the  operator  must  enter  the  appropriate 
number  of  characters. 

The  video  display  unit  may  consist  of  some  sort  of 
smart  terminal  or  it  may  be  an  interface  unit  between  the 
main  data  link  processor  and  the  VDT.  In  either  case,  the 
data  link  receiver's  processor  need  only  send  certain  codes 
to  the  video  display  port.  These  codes  trigger  the 
appropriate  actions  by  which  a  driver  in  the  video  display 
interface  causes  the  menus  to  be  displayed  on  the  screen. 
Messages  from  the  helicopters  are  displayed  in  a  similar 
manner.  This  is  another  advantage  of  the  levels  of 
abstraction.  The  technology,  architecture,  and  implementa- 
tion of  the  device  is  invisible  to  the  data  link  receiver 
processor . 

The  printer  receives  its  commands  and  data  in  a  manner 
similar  to  that  of  the  video  display  terminal.  It  does  not 
receive  as  much  text  as  the  VDT  because  the  menus  are  not 
printed.  It  exists  in  the  system  mainly  to  provide  hard 
copy  output  of  the  message  traffic  during  a  mission.  Should 
the   hard   copy  not  be  required  or  desired,  the  operator  has 
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only  to  secure  the  power  switch  o-f  the  printer.  This  makes 
the  overall  system  simpler  because  there  is  no  need  to 
include  an  on/o-f-F  -Function  -for  the  printer  in  the  system. 

This  approach  o-f  levels  o-f  abstractions  is  a 
reasonable  one  for  several  reasons.  It  would  be  difficult 
for  CSDE  to  design  a  controller  that  would  perform  all  the 
requirements  of  this  controller  and  still  be  able  to  meet 
the  required  time  constraints  for  each  task.  The  overall 
system  must  monitor  the  airwaves,  receive  a  message,  check 
it  for  validity,  and  store  it  properly  not  to  mention  all 
the  other  functions  required  to  drive  the  video  display 
unit,  monitor  the  keyboard  for  input,  and  other  such  tasks. 

One  criticism  of  CSDE  has  been  that  there  is  no  way  to 
force  a  design  with  two  CPUs  CRef.173.  CSDE  will  design  a 
system  with  two  processors  when  one  cannot  perform  all  the 
functions  set  forth  by  the  designer  within  the  required  time 
constraints.  Nor  does  CSDE  presently  allow  for  more  than 
two  CPUs.  There  are,  however,  ways  around  these  limit- 
ations. The  central  part  of  the  receiver  is  designed  with 
the  assumption  of  several  "smart"  interfaces.  These  other 
interface  units  may  also  be  designed  using  CSDE  as  long  as 
the  user  is  careful  to  specify  compatible  links  between  the 
units.  The  result  is  a  number  of  processors  integrated  into 
one  system  much  as  an  operating  system  or  a  communications 
network  may  be  viewed  as  consisting  of  layers. 
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The  radio  inter -face  will  receive  messages  sent  to  the 
particular  receiving  unit.  The  message  will  be  tested  for 
completeness  and  correctness.  I-f  the  message  passes  this 
test,  it  is  held  in  a  bu-f-fer  and  a  status  flag  set.  The 
processor  checks  the  status  bit  when  it  polls  the  radio 
receiver  and  i  -f  it  is  set,  it  reads  the  message  into  memory 
in  a  serial  -fashion  and  passes  it  to  the  video  display  unit 
and  the  printer. 

The  radios,  navigation  devices,  and  the  keyboard  are 
polled  according  to  the  time  constraints  in  the  CSDL 
contingency  list.  The  number  o-f  polls  o-f  a  device  per  time 
period  vary  with  the  immediacy  of  the  input.  For  instance, 
the  keyboard  will  be  polled  more  often  than  the  navigation 
device.  The  system  must  respond  to  keyboard  inputs  fast  or 
the  operator  may  become  frustrated  or  think  the  system  is 
locked  up.  The  position  of  the  unit  doesn't  change  at  a 
fast  rate  so  the  position  need  only  be  updated  every  minute 
or  so. 

The  system  will  handle  at  least  three  helicopters 
simultaneously.  A  maximum  of  ten  aircraft  may  be  logged  in 
at  any  given  time.  The  tail  numbers  of  the  helicopters  must 
be  logged  into  the  system  memory  manually  by  the  system 
operator.  The  system  will  receive  and  process  messages  from 
an  aircraft  not  logged  in  as  long  as  the  receiving  unit  is 
specifically    addressed   in   the   message.    It   will   not, 


however,  poll  any  helicopter  that  is   not   logged   into   the 
system  . 

The  polling  o-f  aircra-ft  is  done  either  automatically 
or  manually  as  selected  by  the  operator.  If  the  polling  is 
on  automatic,  the  operator  must  select  a  polling  time  period 
-from  1  to  30  minutes  in  duration.  The  normal  reporting 
period  for  a  Coast  Guard  helicopter  is  every  15  minutes. 
The  performance  standards  and  criteria  for  the  system 
specified  periods  between  five  and  thiry  minutes.  A  one 
minute  interval  was  added  for  closer  monitoring  of  a 
helicopter  during  an  in— flight  emergency  or  a  critical 
period  during  a  search  and  rescue  case  or  law  enforcement 
acti  on. 

Messages  from  the  helicopters  are  fixed  in  format. 
The  messages  are  received  and  held  in  a  buffer  by  the  radio 
interface.  While  the  message  is  read  into  memory,  it  is 
printed  on  the  video  display  terminal  and  on  the  printer. 
Messages  are  acknowledged  by  the  radio  interface  by  sending 
the  position  of  the  receiving  unit  and  the  time  the  position 
was  calculated  back  to  the  helicopter.  The  position  is 
read  from  the  navigation  interface  by  the  processor  and 
stored  in  memory.  It  is  called  from  memory  when  needed  and 
passed  serially  to  the  radio  interface. 

A  garbled  message  from  an  aircraft  is  not 
acknowledged.  When  a  message  is  not  acknowledged,  the 
helicopter's   data   link   processor   will  resend  the  message 


after  waiting  a  random  period  of  time.  The  message  will  be 
sent  again  and  again  with  random  wait  times  between 
transmissions  until  acknowledged.  A-fter  being  sent  a 
certain  number  of  times  without  acknowledgement,  the  pilots 
are  notified  by  a  message  printed  on  their  VDTs. 

If  two  or  more  helicopters  send  messages  simul- 
taneously, none  will  be  acknowledged.  This  contention  is 
not  serious  since  the  helicopters  will  resend  their  messages 
after  waiting  a  random  period.  The  messages  are  short  (less 
than  64  bytes  sent  at  300  baud)  and  most  cutters  operate 
with  only  one  helicopter  at  a  time.  An  exception  are  the 
five  polar  icebreakers  that  normally  carry  two  helicopters- 
Operations  from  air  stations  present  the  highest  probability 
of  contention  since  they  might  have  two  or  more  helicopters 
airborne  on  missions  at  the  same  time.  The  short  duration 
of  the  messages  coupled  with  the  few  aircraft  generally 
under  the  control  of  one  unit  plus  the  random  timing  for 
resending  a  message  creates  a  situation  where  the  contention 
is  sel f— correcting. 

The  messages  are  stored  in  the  same  packed  form  as 
they  are  received.  When  the  messages  are  processed  for 
display,  they  are  filled  out  with  the  necessary  descriptive 
enhancements.  The  overlays  or  templates  for  this  purpose 
reside  in  ROM  and  are  inserted  by  the  video  display  unit  as 
the  messages  are  displayed  on  the  VDT.  The  system  has  the 
ability  to  store  the  last  ten  messages  received  in  memory. 
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The  protocol  o-f  the  data  link  transmissions  include 
the  preamble,  control  data,  and  i  n-f  ormati  on.  The  preamble 
and  control  data  sections  are  used  by  the  radio  interface. 
The  information  section  alone  is  passed  to  the  processor  by 
the  radio  inter-face.  The  information  section  of  the  message 
follows  the  format  below.  The  number  of  characters  in  each 
field  are  shown  in  parentheses. 

1.  Helicopter  number.    (From) 

4  digits  (1409) 

2.  Ship/ground  station  identifier.    (To) 

4  digits  (7184) 

3.  Date  and  time.    (DTG  for  message  numbering) 

12  characters  (31 1545ZMAY84) 

4.  Position  time.  (This  is  the  time  the  position 
was  calculated.  The  time  may  be  local  or  Zulu, 
depending  on  local  doctrine). 

4  digits  (1543) 

5.  Message  type.  (Message  types  include  normal 
position  reports,  poll  response,  etc.,  or  mission 
type   such   as   fisheries  patrol,  drug  interdiction, 


search  and  rescue,  etc.,  and  can  declare  an  aircra-ft 
emergency) 

1  character     (3) 

6.  Position.  (Latitude/Longitude.  Format  is 
degrees,  minutes,  and  tenths  o-f  minutes  followed  by 
N  or  S  for  latitude,  E  or  W  -For  longitude;  i.e., 
Lat  =  ddmmtN,  Long  =  dddmmtW) 

13  characters  (36429N088321W) 

7.  Ground  speed  (in  knots). 

3  digits  (105) 

8.  Track  (in  degrees  true). 

3  digits  (220) 

9.  Fuel  (in  pounds,  less  reserve). 

4  digits  (1200) 

10.  Wind  direction  (in  degrees  true). 

3  digits  (345) 

11.  Wind  velocity  (in  knots). 

3  digits  (022) 
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12.  Altitude  (in  hundreds  of  -Feet). 

2  digits  (12) 

13.  CRC  (cyclic  redundancy  check.  This  is  used  in 
the  radio  inter-face  unit  but  is  not  read  into  the 
processor's  memory). 

Each  -field  o-f  the  message  will  be  complete,  that  is, 
each  -field  will  use  its  full  number  o-f  characters.  I-f  the 
in-formation  -for  a  particular  -field  is  unavailable  for  some 
reason  (the  failure  of  an  instrument  such  as  the 
omnidirectional  airspeed  indicator  or  lack  of  an  updated 
position  because  of  loss  of  LORAN  lock  on)  the  field  will  be 
filled  with  blanks  (20H) .  Fields  that  are  short  will  use 
blanks  (20H)  or  zeroes  (00H)  as  appropriate  to  pad  the  data 
field. 

The  format  for  the  examples   given   above   looks   like 
this: 

31  34  30  39  37  31  38  34  33  31  31  35  34  35  5A  4D  41  59  38 
34  31  35  34  33  33  33  36  34  32  39  4E  30  38  38  33  32  31  57 
31  30  35  32  32  30  31  32  30  30  33  34  35  30  32  32  31  32 

These  numbers  are  hexidecimal  representations  of  the  ASCII 
characters  for  the  numbers  and  letters  used  in  the 
ex amp 1 es. 
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Keyboard  inputs  provide  the  operator's  control  over 
the  system.  The  input  system  is  simplified  to  the  point 
where  single  keystrokes  are  all  that  are  necessary  to  invoke 
different  functions.  When  a  keyboard  input  is  detected,  the 
appropriate  menu  is  placed  on  the  video  display  unit.  The 
operator  uses  single  keystrokes  to  select  and  invoke  the 
different  system  functions.  The  menus  are  contained  in  ROM 
and  are  written  to  the  VDT  by  the  video  display  unit 
interface.  The  data  link  receiver  processor  sends  the 
appropriate  code  to  the  video  display  unit  interface  to  call 
the  menus  to  the  screen. 


III.  C5DL  DESIGN 

The  Control  System  Design  Environment  was  -first 
proposed  by  Matelan  CRef.  183  as  a  method  o-F  simplifying  the 
design  of  process  controllers.  Ross  implemented  the  Control 
System  Design  Language  (CSDL)  as  part  o-f  this  environment 
CRef.  191.  The  designer  o-f  a  controller  system  describes 
the  inputs  and  outputs  needed  and  the  required  response 
times  for  different  functions.  Using  this  high— level 
language  makes  the  design  of  the  controller  much  simpler 
than  it  would  be  without  the  use  of  computer— ai ded  design 
tools. 

Some  of  the  syntax  rules  of  CSDL  should  be  mentioned. 
CSDL  programs  must  be  in  upper  case  characters  only.  Most 
statements  end  in  a  semicolon.  The  names  of  functions  end 
with  a  colon  while  task  names  end  with  a  semicolon.  The 
final  end  statement  has  no  punctuation.  Variable  names 
cannot  exceed  ten  characters.  Because  they  Are  later 
truncated  to  six  characters,  the  user  should  insure  that  the 
first  six  characters  in  a  name  a.re  unique.  A  complete 
listing  of  the  formal  syntax  of  CSDL  is  available  in 
Carson's  thesis  CRef.  203. 

There  a.r&       five   sections   to   CSDL   programs.     The 
sections   are  Identification,  Environment,  Contingency  List, 
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and  Procedures.   The  Ident i f icat ion  section   is   simply   the 

name  o-f  the  designer,  the  date,  and  the  project  name.   It  is 

intended   to   identi-fy   the   program   and   does  not  have  any 

effect  when  the  program  is  run.   It  appears  in  this  format: 

IDENTIFICATION 

DESIGNER  :  "SUTTER  FOX" 

DATE  :  "05-31-84" 

PROJECT  :  "COAST  GUARD  DATA  LINK  RECEIVER" 

The  second  section  is  the  design   criteria.    This   is 

the  portion  of  the  program  where  the  designer  can  choose  the 

primitive   list   and   processor   family  for  CSDL  to  use.   At 

present  there  are    three   realisation   libraries.    They   are 

based  on  the  8080,  Z80,  and   8086   microprocessor   families. 

The  format  for  the  design  criteria  section  is: 

DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  l; 
MONITORS  1| 

METRIC   FIRST  refers  to  the  first  realization  that  meets  the 

the  timing  requirements  of  the  system.    Alternatively,   the 

designer    may   prescribe   cost   or   power   as   the   minimum 

requirements   for   the   system.    VOLUMES   refers    to    the 

realization  libraries  in  the  order  they  are  numbered.   Since 

only    one    volume   was   resident   when   this   project   was 

translated,  the  first  (and  only)  volume  was  designated.    As 

with   the   realization   volume,   there   is   only  one  monitor 

volume  for  the  realization  volume,  and  thus  the   first   (and 

only)  monitor  is  selected. 
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The  design  variables  are  declared  in  the  environment 
section.  The  system  for  the  data  link  receiver  produced 
under  CSDL  requires  a  greater  number  of  variables  than  any 
earlier  attempt  at  a  CSDE  controller  generation  .  This  will 
be  discussed  in  more  detail  later  in  this  chapter.  There 
are  three  types  of  variables  in  a  CSDL  program.  Input 
variables  are  values  that  are  sensed  by  the  controller  from 
the  outside  of  the  controller  processor.  The  output 
variables  send  values  outside  the  controller.  The 
declaration  of  these  variables  includes  the  number  of  lines 
necessary  between  the  controller  and  the  outside  world  and 
the  type  of  technology  desired  for  their  design.  The  third 
type  of  variable  is  the  arithmetic  variable-  Arithmetic 
variables  used  in  computations  within  the  controller 
itself.  The  declarations  made  in  the  environment  section 
are  analogous  to  declarations  made  in  a  block  structured 
language  such  as  Pascal,  Ada,  or  PL/I.  The  format  of  the 
environment  section  is: 

ENVIRONMENT 

INPUT  :  KEYFLG, 1,TTL;  KEYCHAR, 8, TTL; 

manpos,8,ttl;  end  input; 
output  :  menu, 8, ttl;  poll, 8, ttl; 

MSGVDT , 8 , TTL ;  MSGRCVD , 1 , TTL ; 
END  OUTPUT; 

ARITHMETIC  :  KEYINMAIN,8;  MINTAC,8; 

NEXTMSG,8;  NEXTAC,8;  COUNT, 8; 

END  arithmetic; 
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The  procedures  section  is  much  the  same  as  -Found  in 
block  structured  languages.  This  section  contains  the  high- 
level  descriptions  o-f  the  arithmetic  and  data  manipulations 
required  to  make  the  system  work.  There  are  two  types  of 
blocks  within  the  procedures  section:  -functions  and  tasks. 
The  functions  and  tasks  Are  always  coupled  in  what  Are 
referred  to  as  contingency/task  pairs.  Each  -function  is 
evaluated  in  its  turn  as  set  -forth  in  the  contingency  list. 
If  it  is  true,  its  associated  task  is  performed.  The 
requirement  that  each  function  have  one  and  only  one  task 
creates  some  problems  with  programming  with  CSDL  that  will 
be  discussed  later.  An  example  of  a  function  and  a  task 
f ol lows. 

FUNCTION  KEY I NM A IN: 

BINARY, 15 

SENSE  (KEYFLAG); 

IF  KEYFLAG  =  1  THEN  KEYINMAIN  :=  1?  END  IF; 
END  KEYINMAIN; 

TASK  KBINPMAIN; 

MENU : =0 ;  I SSUE  ( MENU ) ; 

SENSE  (KEYCHAR) ; 

IF  KEYCHAR  =  1  THEN  MINTAC     :=  1;  END  IF; 

IF  KEYCHAR  =  2  THEN  MMSGDSPLY  :=  1;  END  IF; 

IF  KEYCHAR  =  3  THEN  ML0CATI0N  :=  1;  END  IF; 

IF  KEYCHAR  =  4  THEN  MCLOCKSET  :=  l;  END  IF; 

IF  KEYCHAR  =  5  THEN  ML0GIN0UT  :=  1;  END  IF; 

KEYINMAIN  :=  0; 
END  KEYINMAIN; 

FUNCTION   KEYINMAIN   is   called   according    to    the    time 

constraints   set   forth  in  the  contingency  list  as  described 

in  the  next  paragraph.   The  keyboard  active  status   flag   is 

checked   by   SENSE   (KEYFLG) .    If  the  flag  is  set,  then  the 
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variable  KEYINMAIN  is  set.  Thus,  the  function  is  true  and 
the  associated  task  KBINPMAIN  is  performed.  This  task  calls 
-for  the  video  display  interface  to  put  the  appropriate  menu 
on  the  VDT  with  the  statements  MENU:=0  and  ISSUE  (MENU). 
The  menu  presents  the  five  selections  available  to  the 
operator  and  waits  for  input.  Upon  pressing  a  number  key 
from  one  to  five,  the  appropriate  variable  is  set  to  one. 
Note  that  the  variable  is  the  same  name  as  a  function  in  the 
CSDL  program.  When  that  particular  function  is  tested  and 
is  found  to  be  true,  its  associated  task  will  be  performed. 
The  final  line  sets  the  function  associated  with  the  task  to 
zero  so  that  it  will  not  be  performed  again  until  set.  It 
is  important  in  this  data  link  receiver  project  to  insure 
that  no  more  than  one  function  be  set  at  any  given  time  in 
order  to  preserve  the  flow  of  program  control. 

The  fifth  section  is  the  contingency  list.  In  this 
section  the  designer  lists  the  contingencies  (functions) 
that  occur  and  the  time  constraints  for  performing  the 
associated  tasks.  This  is  where  CSDL  differs  greatly  from 
languages  that  execute  in  a  linear  manner  such  as  FORTRAN, 
BASIC,  or  Pascal.  The  timing  requirements  may  be  such  that 
some  functions  are  tested  several  times  before  another 
certain  function  is  tested  at  all.  Some  procedures  (tasks) 
may  be  performed  every  designated  time  period.  The 
execution  of  functions  and  procedures  aire  dependent  upon  the 
timing  requirements  the  designer  delineates  in  this   section 
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o-f   a   CSDL   program.   An  example  -For  the  contigency  section 


1  5  1 


CONTINGENCY  LIST 

WHEN  KEYINMAIN 
WHEN  MI NT AC 
WHEN  SMMANUAL 
WHEN  SMAUTO 
WHEN  TPOLL 
WHEN  MLOCATION 
WHEN  TMLOCATION 
WHEN  POSCH 
WHEN  MMSGDSPLY 
WHEN  MCLOCKSET 
WHEN  MLOGINOUT 
WHEN  TLOGIN 
WHEN  TLOGOUT 
WHEN  MSGIN 


100  MS  DO  KBINPMAIN? 

100  MS  DO  INTAC; 

100  MS  DO  MANUAL; 

100  MS  DO  AUTO; 

100  MS  DO  POLL AUTO; 

100  MS  DO  LOCATION; 

100  MS  DO  MANLOC; 

100  MS  DO  posupdate; 

100  MS  DO  MSGDSPLYj 
100  MS  DO  CLOCKSETJ 
100  MS  DO  LOGINOUT; 
100  MS  DO  LOGIN; 
100  MS  DO  LOGOUT? 
100  MS  DO  MSGSTORE; 


Writing  code  in  CSDL  is  not  as  easy  or  convenient  as 
in  many  high— level  languages.  There  are  several  ■factors 
that  can  make  it  a  -frustrating  experience  -for  those  who  are 
used  to  the  constructs  available  in  languages  such  as 
Pascal,  PL/I,  and  even  BASIC.  The  reader  should  not  judge 
CSDL  too  harshly.  It  should  be  remembered  that  the  CSDL 
language  was  designed  -for  simpler  controllers  than  the  one 
attempted  in  this  thesis. 

There  are  no  comments  in  CSDL  other  than  those 
enclosed  in  quotes  in  the  Ident i -f ication  Section.  It  is 
widely  accepted  that  commenting  within  programs  makes  it 
easier  to  maintain  those  programs.  Since  most  candidates 
■for  a  CSDE  implementation  are  relatively  simple,  and  since 
most  CSDL  programs  will  be  written  and  implemented  in  a 
fairly  short  time,  this  may  not  be  a  very  big  problem. 
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The  data  link  receiver  project  would  normally  be  a 
candidate  for  an  interrupt-dri ven  system.  As  it  is  pres- 
ently implemented,  CSDL  has  no  ability  to  design  systems 
that  use  interrupts. 

Since  all  contingencies  and  tasks  in  CSDL  must  be  in  a 
one  to  one  ratio,  all  the  -functions  and  tasks  have  been 
placed  together  in  the  listing  -for  this  data  link  receiver 
CSDL  program.  This  makes  it  clearer  -for  the  reader  (not  to 
mention  the  programmer)  when  perusing  the  code.  There  are 
many  menus  in  this  system  and  the  -functions  and  tasks  have 
been  named  to  re-flect  the  -fact  that  some  menus  ^re  called 
-from  other  menus.  The  main  menu  presents  -five  choices.  If, 
-for  instance,  the  operator  selects  "Interrogate  Aircra-ft", 
FUNCTION  MINTAC  is  set  to  1  (true).  FUNCTION  MINTAC  is 
paired  with  TASK  INTAC.  Functions  generally  have  more 
letters  in  their  names  than  their  tasks  since  -functions 
generally  have  a  pre-fix  added  to  the  name  of  the  associated 
task.  TASK  INTAC  calls  up  a  menu  wherein  the  operator  may 
select  a  return  to  the  main  menu  without  any  function  being 
carried  out,  or  the  operator  may  elect  to  interrogate  the 
aircraft  manually  or  automatically.  If  the  selection  is  to 
interrogate  automatically,  FUNCTION  SMAUTO  is  set  true. 
TASK  AUTO  is  paired  with  FUNCTION  SMAUTO,  and  by  now  the 
pattern  may  be  clear  to  the  reader.  The  name  of  function 
that  is  set  to  true  by  a  selection  made  under  the  main  menu 
is  prefixed  with  an  M.   A  menu  called  from  a   task   that   is 
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associated  with  "M"  -function  has  a  -function  prefixed  with 
"SM"  for  secondary  menu.  When  there  is  another  submenu,  the 
■function  name  will  be  pre-fixed  with  "TM"  -for  tertiary  menu. 
Tasks  have  names  similar  to  their  associated  -functions  but 
without  the  prefixs. 

One  construct  that  would  be  most  welcome  in  CSDL  is 
the  CASE  statement.  This  would  allow  ease  of  programming 
when  one  out  of  several  possible  paths  would  be  chosen.  The 
lack  of  a  CASE  construct  requires  one  to  write  multiple  IF 
statements  which  does  not  maks  for  the  most  elegant 
programming.  Several  of  the  procedures  in  this  data  link 
receiver  project  have  ten  IF  statements  where  some  other 
languages  would  be  able  to  express  the  same  function  in  one 
or  two  lines.  This  does  take  up  some  space  in  memory  but 
when  compiled  it  requires  less  space  and  may  be 
insignificant  in  terms  of  overhead.  The  real  problem  that 
is  evident  is  that  there  are  many  more  variables  than 
necessary  in  most  other  high-level  languages.  CSDL  does  not 
allow  for  subscripting  variables  which  leads  the  designer  of 
a  system  to  writing  many  more  lines  of  code  and  having  to 
name  each  variable  instead  of  using  subscripts.  For 
example,  ten  messages  are  required  to  be  in  memory  at  any 
given  time.  This  requires  ten  different  variable  names  for 
these  ten  messages.  A  pointer  must  keep  track  of  the  next 
message  block  available  for  use  and  it  would  be  quite  simple 
to  use  subscripted  variables  for  this  purpose.    Since   this 
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is  not  possible,  a  series  o-f  nearly  identical  IF  statements 
must  be  traversed  when  locating  the  next  block.  The  same 
problem  occurs  when  printing  the  messages.  The  code  must 
explicitly  name  each  o-f  the  ten  variables.  It  would  require 
less  memory  for  the  program  to  be  able  to  re-fer  to  these 
variables  with  subscripts  and  would  also  make  for  clearer 
code.  The  complexity  could  be  simplified  by  adding  new 
primitives  that  would  allow  for  the  constructs  using 
subscripted  variables.  Examples  of  tasks  with  multiple 
statements  that  could  be  handled  with  a  CASE  statement 
include  KBINPMAIN,  INT AC,  and  AUTO.  Nearly  every  task  in 
this  program  could  benefit  from  the  use  of  subscripted 
variables. 

The  original  design  approach  was  to  divide  the  memory 
for  the  ten  messages  according  to  the  number  of  aircraft 
logged  into  the  system.  Two  message  memories  were  to  be 
reserved  for  messages  from  helicopters  not  logged  in.  Thus, 
there  would  have  been  a  maximum  of  eight  aircraft  tracked 
where  each  would  have  one  message  available  for  immediate 
recall.  This  would  be  the  worst  case  scenario  and  also 
highly  unlikely.  If  only  one  helicopter  was  logged  in,  the 
system  could  maintain  the  last  eight  messages  for  that  one 
helicopter.  Since  CSDL  does  not  provide  a  capablity  for 
indexing  variables,  it  would  be  difficult  to  provide  such 
dynamic  allocation  of  the  ten  message  memory  areas. 
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It  is  highly  likely  that  there  will  be  three  or  less 
helicopters  logged  into  one  system  at  any  given  time.  It  is 
less  likely  that  there  would  be  -four  or  more  aircra-ft  logged 
in  simultaneously.  Standard  safety  procedures  call  for  a 
helicopter  to  maintain  a  radio  guard  at  all  times  and  send 
an  "operations  normal"  and  position  report  every  fifteen 
minutes.  If  there  were  three  helicopters  logged  into  one 
system  that  would  mean  12  reports  in  an  hour.  This  means 
that  the  two  earliest  reports  would  be  overwritten  by  newer 
messages  at  the  end  of  an  hour  but  there  would  be  at  least 
three  messages  remaining  for  each  aircraft.  Even  if  there 
were  ten  aircraft  using  the  system,  there  would  be  at  least 
one  message  in  memory  for  each  aircraft.  This  would  be  the 
last  position  sent  and  would  be  used  as  a  datum  for  search 
and  rescue  procedures  should  communications  be  lost  with  the 
aircraft.  Position  reports  include  heading,  track,  ground 
speed,  and  other  environmental  data  that  would  provide 
excellent  search  planning  information.  Since  manual  polling 
of  the  helicopters  is  provided,  it  would  be  possible  to 
manually  poll  one  or  more  helicopters  enough  times  so  that 
there  would  not  be  any  messages  in  the  memory  from  a 
particular  helicopter.  There  ^re  two  backups  in  this  case. 
First,  the  printer  should  be  enabled  so  that  there  would  be 
hard  copy  of  all  the  messages.  The  second  is  the 
multi -track  audio  tapes  that  monitor  telephone  and  radio 
traffic   at  air  stations  and  aboard  the  flight-deck  equipped 
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cutters.  Should  it  be  required  in  an  emergency,  the  tapes 
could  be  run  back  as  -far  as  necessary  and  then  replayed  to 
•feed  the  raw  radio  signals  to  the  radio  inter-face  device. 

Reading  messages  in  -from  the  electronic  navigation 
device  inter-face  created  a  problem  when  coding  the  program. 
Each  message  is  56  bytes  long  and  the  input  to  the  processor 
is  8  bits  wide.  In  order  to  read  in  the  message,  the  36 
bytes  must  be  read  into  the  processor  and  sent  to  memory, 
the  video  display  unit,  and  the  printer  in  a  serial 
-fashion.  There  was  no  construct  in  CSDL  that  would  read  in 
a  string  o-f  characters  o-f  this  length.  This  -function  is  one 
that  is  basic  to  the  operation  o-f  this  system.  String 
handling  can  be  added  by  writing  a  new  primitive  that  would 
read  in  the  56  bytes  or  any  other  number  by  overloading  the 
SENSE  (input)  statement  in  CSDL.  Without  this  addition  to 
the  language,  there  could  be  no  CSDL  implementation  that 
would  satisfy  the  requirements  o-f  the  data  link  receiver 
project.  A  similar  primitive  can  be  speci-fied  to  write  a 
message  out  to  the  VDT  and  printer  when  the  operator  selects 
that  -function.  These  primitives  can  be  general  enough  that 
they  may  be  used  -for  different  sizes  of  strings. 

When  the  CSDL  program  is  completed,  it  is  translated 
by  Carson's  CSDL. PAS  program.  This  program,  written  in 
Pascal,  takes  the  high-level  CSDL  program  and  translates  it 
into   a   primitive   list   for  the  controller.   The  primitive 


40 


list  is  used  in  the  next  step  in  the  control   system   design 
environment  process. 
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IV.  IMPLEMENTATION 

The  next  step  in  the  process  from  the  high-level 
description  to  the  hardware  and  software  listings  is  to  take 
the  output  o-f  the  CSDL  translator  and  -feed  it  through  Ross* 
FORTRAN  program,  NEWCSDL. FOR. 

The  main  task  performed  by  NEWCSDL. FOR  is  to  map  the 
primitive  list  compiled  by  CSDL. PAS  to  the  selected 
realization  library.  The  output  includes  a  listing  o-f  the 
hardware  to  implement  the  controller  and  the  assembly 
language  so-ftware  to  run  it.  Two  -files,  the  primitive  list 
and  another  containing  information  about  the  contingency 
list,  are  used  by  the  Optimizer  Module  in  NEWCSDL. FOR  to  set 
up  a  -formatted  application  table  and  an  index  to  the 
selected  realization  volume.  The  Functional  Mapper 
constructs  the  Realization  Timing  Table  and  determines  if 
the  realization  is  feasible.  A  monitor  sequence  is  added 
and  actual  values  Are  substituted  for  dummy  parameters  and 
an  output  listing  is  generated.  If  the  Timing  Analyzer 
fails  to  find  a  feasible  single  processor  realization,  the 
contingency/task  list  is  partitioned  and  a  dual  processor 
realization  is  generated  under  the  control  of  the 
Optimizer.  For  greater  detail,  see  Ross7  doctoral 
dissertation  CRef.  21 D. 


The  project  at  this  point  had  progressed  -from  the  CSDL 
description  through  translation  by  Carson's  CSDL. PAS 
program.  This  was  the  second  attempt  to  use  CSDL. PAS  on  a 
project.  The  first  use  was  for  a  test  of  CSDL. PAS  conducted 
by  Carson  by  running  Riley's  jet  engine  start  sequencer 
controller  through  the  translator. 

There  were  some  problems  getting  the  CSDL  description 
for  the  data  link  receiver  project  through  the  translator. 
The  data  link  receiver  required  so  many  variable  names  that 
it  exceeded  the  size  limits  set  in  CSDL. PAS.  One  problem 
concerned  a  CASE  statement  in  the  CSDL. PAS  program  where  20 
possible  cases  existed.  This  problem  was  resolved  by 
increasing  the  allowed  number  of  cases  to  95.  There  were 
other  errors  generated  in  translation  that  were  quite 
frustrating.  One  problem  was  overcome  when  it  was 
discovered  that  CSDL. PAS  would  generate  errors  whenever  a 
tabkey  had  been  used  to  produce  spacing  within  the  CSDL 
description.  All  tabkey  spacing  was  removed  and  replaced 
with  spaces  generated  using  the  spacebar.  CSDL. PAS  should 
be  modified  to  allow  for  spaces  generated  by  either  the 
space  bar  or  the  tabkey. 

More  problems  were  discovered  when  trying  to  run  the 
primitive  list  generated  by  CSDL. PAS  through  NEWCSDL.FOR. 
FORTRAN  is  notorious  for  the  inflexibility  of  program 
inputs,  which  is  a  carryover  from  the  days   of   card   input. 
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NEWCSDL.FOR       is    no    exception.       Title    lines    for    -functions    and 

procedures    in    the   primitive    -files    have    the    format: 

1  6  23 

p  xxx  t. generated  for:   procedure  name 

where  xxx  represents  the  line  number  of  the  primitive  and  t 
stands  for  title  line.  The  t. generated  for  primitive  marks 
the  beginning  of  a  new  procedure.  The  procedure  names  in 
the  title  lines  of  the  primitive  list  as  generated  by 
CSDL.PAS  were  in  column  22.  When  NEWCSDL.FOR  is  run  with 
the  procedure  name  in  the  wrong  column,  everything  between 
the  title  lines  is  ignored  and  error  messages  are  generated 
for  each  title  line  in  the  file.  Each  title  line  in  the 
primitive  list  had  to  be  reformatted  to  meet  the 
requirements  of  NEWCSDL.FOR. 

Another   problem   encountered   in   the  translation  was 
that  the  s.ni  primitive  should  have  appeared  as: 

p  xxx  s.ni  ( : : ) 

The  s  stands  for  a  software  primitive.  An  h  stands  for  a 
hardware  primitive.  The  colons  inside  the  parentheses  are 
required  because  they  are  used  to  separate  variables, 
parameters,  and  attributes.  They  were  not  in  the  primitive 
list  generated  by  CSDL.PAS.  The  colons  were  added  using  the 
text  editor.  A  similar  error  was  discovered  in  the  s.main 
primitive. 

The   entire   primitive   list   must   be   in   lower  case 
letters  except  for  the  function  and  task  names.   They  may  be 
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in  upper  or  lower  case  as  long  as  they  are  consistent  with 
the  case  used  in  the  contingency  list  -file.  Although 
CSDL.PAS  allows  variable  names  o-f  up  to  ten  characters  in 
length,  NEWCSDL.FOR  has  a  maximum  o-f  six  characters.  The 
designer  must  insure  that  no  two  variables  have  the  same  six 
first  characters. 

While  the  -formatting  errors  and  the  lack  o-f  colons  in 
the  proper  places  created  some  unnecessary  work,  the  biggest 
problem  at  this  point  was  the  incompatibility  o-f  the 
primitive  list  and  the  Z80  realization  library.  For 
instance,  the  function  of  one  basic  primitive  is  to  sense  a 
value  on  a  particular  input  line  to  the  processor.  This 
primitive  has  the  form: 

p  xxx  s.sensecond  (keychar:8) 
where  sensecond  stands  for  sense  condition,  keychar  is  the 
name  of  some  variable,  and  eight  refers  to  the  arithmetic 
precision  of  the  variable.  It  was  discovered  that  the  Z80 
realization  library  did  not  contain  any  realization  of  this 
primi ti  ve. 

The  Z80  library  was  designed  by  Smith  at  the  same  time 
Riley  was  working  on  the  jet  engine  start  controller.  This 
was  before  Carson's  CSDL.PAS  program  was  available.  Riley 
had  to  translate  the  CSDL  listing  into  a  primitive  list  by 
hand.  Since  he  chose  to  implement  his  project  using  the  Z80 
library,  he  and  Smith  worked  closely  together.  Prolog 
equipment   was   used   for   the  project  implementation  and  so 


Smith  geared  the  Z80  library  toward  that  end.  Thus,  the  Z80 
library  was  not  as  general  as  needed  to  produce  contollers 
using  other  hardware.  In  particular,  the  I/O  primitives 
were  designed  specifically  to  match  the  Prolog  hardware. 
The  s.  sense  and  s.  issue  primitives  were  not  needed  -for  the 
Prolog  implementation  and  thus  were  not  included  in  the  Z80 
realization  library. 

At  this  point  it  was  decided  to  shift  the  emphasis 
-from  using  the  Z80  realization  library  to  the  8080  and  8086 
realization  libraries.  There  were  two  reasons  -for  this. 
First,  the  designer  o-f  the  8086  library,  Cetel  ,  was  still 
available  to  make  adjustments  to  the  library.  Second,  the 
8086  library  closely  -followed  the  example  o-f  the  original 
8080  library  built  by  Ross.  If  the  primitive  list  could  be 
adjusted  to  run  under  NEWCSDL. FOR,  then  two  realizations  of 
the  data  link  receiver  could  be  produced.  This  would  help 
standardize  the  realization  libraries  to  where  any  library 
could  be  used  with  the  primitive  list  output  by  CSDL.PAS  and 
further  processed  by  NEWCSDL. FOR. 

Other  problems  remained  stemming  from  the  incom- 
patibilty  of  the  primitive  list  produced  by  CSDL.PAS  and  the 
realization  libraries.  CSDL.PAS  produced  other  primitives 
that  did  not  exist  in  the  realization  libraries.  These 
primitives  included  s.inputport  and  s. outputport .  Inputport 
and  outputport  are  both  primitives  that  remain  to  be  added 
to  the  realization  libraries. 
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The  s.-forcons  and  s.forend  primitives  in  the  8080  and 
8086  libraries  are  not  in  the  same  format.  These  primitives 
mark  the  beginning  and  end  o-f  -for — next  loops.  There  are  two 
variables  for  the  upper  and  lower  values  of  the  loop. 
NEWCSDL.FOR  expects  actual  numbers  but  CSDL.PAS  produces 
variable  names  instead. 

The  s.exitproc  primitive  marks  the  end  of  a  procedure 
in  the  primitive  list.  NEWCSDL.FOR  was  designed  to  use  the 
contingency  name  in  the  parameter  list  to  reset  the  value  of 
the  contingency  to  zero  after  the  task  was  executed.  The 
CSDL  program  written  for  this  project  included  a  statement 
at  the  end  of  each  task  explicitly  resetting  the 
contigency.  Ross  decided  that  the  realization  libraries  and 
NEWCSDL.FOR  would  be  changed  to  adopt  this  latter  method  of 
resetting  the  contingency. 

There  are  several  different  primitives  with  the  same 
names  in  a  realization  library.  This  is  to  allow  for 
different  precisions  of  arithmetic  manipulations. 
NEWCSDL.FOR  performs  a  binary  search  to  find  a  primitive 
name.  When  it  finds  the  primitive,  it  searches  up  the 
realization  library  index  to  find  the  first  instance  of  the 
primitive  name.  NEWCSDL.FOR  then  works  down  through  the 
index  to  find  the  first  instance  of  the  primitive  that  will 
satisfy  the  precision  required.    For   instance,   s.var   and 
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s.cons   primitives   in   the  8086  realization  library  had  the 
format: 


s.  var  (nam,val:  0,8 
s.var  (nam,val:  0,16 
s.var  (nam,val:  0,24 


etc) 

. . .etc) 
. . .etc) 


where  the  0,n  referred  to  variables  with  zero  to  n  bits  o-F 
precision.  It  was  discovered  that  NEWCSDL.FOR  was  choosing 
the  greatest  precision  available  every  time.  This  was 
corrected  by  changing  8086  realization  library  to  the 
■format : 


s.var     (nam,val:       0,8 
s.var     (nam,val:       9,16 
s.var     (nam,val:     17,24 


.etc) 
.etc) 
.etc) 


The  correct  precision  is  now  selected  for  these  particular 
primitives  but  the  entire  8086  library  must  be  examined  for 
other  instances  of  this  precision  error. 

NEWCSDL.FOR  requires  a  listing  of  the  contingency/task 
pairs  in  a  file  named  IADEFL.DAT  as  one  of  its  inputs. 
CSDL.PAS  creates  such  a  file  but  it  is  not  in  the  required 
format.  A  new  line  for  the  system  must  be  added  as  the 
first  line  in  the  file.  The  other  columns  must  be  corrected 
to  the  format  as  set  forth  in  Ross'  doctoral  dissertation. 

The  multiplication  primitive,  s.mult,  was  present  in 
the  8086  library  as  s.mul.  The  two  precisions  of  multiply 
were  renamed  s.mult  to  conform  with  the  standard.  The 
s.mult  primitive  in  the  8080  library  had  been  changed  by 
Pol  luck  from  a  strictly  software  implementation  to  one  that 
called   an   arithmetic   chip  to  do  a  hardware  multiply.   The 
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chip  had  been  removed  -from  the  library  at  some  point  before 
this  project  was  started.  Either  the  chip  or  the  software 
multiplication  routine  must  be  restored  for  the  8080  library 
to  correctly  handle  multiplication. 

The  size  of  the  program  also  created  problems  in 
NEWCSDL.FOR.  One  of  the  stacks  in  the  Formatter  Module 
proved  to  be  too  small  for  the  data  link  receiver  project. 
The  stack  overflowed  before  the  completion  of  the 
realization.  The  program  was  adjusted  by  Ross  to  allow  for 
a  greater  stack  size.  The  output  of  NEWCSDL.FOR  for  the 
8086  library  is  in  Appendices  D  and  E. 

At  the  time  of  writing  this  thesis,  the  following 
corrections  and  alterations  to  the  primitive  file  must  be 
made  for  NEWCSDL.FOR  to  properly  process  it.  The  two  lines 
wi  th 

t. generated  for:      SYSTEM  *********** 
must   be   corrected   to   start  the  word  system  in  column  23. 
The  second  line, 

s.MAIN  (::) 
must  be  changed  so  that  the   word   main   is   in   lower   case 
letters.   All  lines  with  s.inputport  or  s.outputport  must  be 
removed   from   the  program  altogether  until  those  primitives 
Are   added  to  the  realization  libraries. 

Even  with  these  changes,  some  errors  were  still 
produced.  To  avoid  problems  with  the  s.in,  s.ni,  s.forcons, 
s.forend,   and   s.exitproc   primitives,   the   original   CSDL 
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program  was  rewritten  to  remove  -for— next  loops  and  timed 
blocks.  These  primitives  must  be  standardized  before  they 
may  be  used  without  concern  for  any  errors  they  may 
produce.   The  revised  CSDL  program  is  in  Appendix  B. 

The  two  realization  libraries  now  produce  the  software 
and  hardware  listings  to  implement  the  data  link  receiver 
project  but  not  without  errors.  One  prominent  mistake  is 
that  each  time  an  input  is  sensed,  another  chip  is  added  to 
the  hardware  listing.  There  should  only  be  one  I/O  chip 
produced  for  a  particular  input  or  output.  At  the  time  of 
this  writing,  CSDL. PAS  and  NEWCSDL.FOR  Are  being  patched  to 
correct  some  of  the  problems  discovered  while  designing  the 
data  link  receiver. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

The  Control  System  Design  Environment  holds  great 
promise  as  a  tool  -for  simplifying  the  work  of  designers  and 
reducing  the  expense  of  producing  controllers.  This 
ambitious  data  link  receiver  project  has  shown  that  the  CSDE 
has  greater  application  than  may  have  been  realized  by  those 
who  did  the  early  work  on  it.  This  project  has  shown  that 
it  may  be  possible  to  design  a  system  in  modules  and  use 
CSDE  to  design  each  each  of  the  modules  independently  of  the 
others  as  long  as  the  interfaces  are    compatible. 

This  project  has  also  demonstrated  the  necessity  for 
compatibility  among  the  different  programs  within  the 
Control  System  Design  Environment.  Since  the  output  of  one 
program  is  the  input  of  another,  there  must  be  a  conscious 
effort  to  standardize  the  interfaces. 

Heilstedt  has  recommended  that  NEWCSDL.FOR  be 
rewritten  in  a  newer  language  than  FORTRAN  CRef.  22D.  While 
it  is  true  that  other  languages  may  be  easier  to  maintain 
than  FORTRAN,  there  are  other  items  in  the  Control  System 
Design  Environment  that  should  be  addressed  first  for  a 
better  return  on  the  investment  of  the  time  and  effort  that 
would  be  required.  Since  VMS  on  the  VAX  computer  allows  a 
file  produced  under  one  language  to   be   used   as   input   to 
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another   language,   there  is  no  need  to  rush  a  reprogramming 
o-f  NEWCSDL.FOR.   A  rewrite  o-f   NEWCSDL.FOR   would   make   the 
input  less  column-dependent.   A  more  critical  problem  is  the 
incompatibi  1  ty  among  the   different   realization   libraries. 
There   should   be   a   standardization  o-f  primitive  names  and 
their  associated  functions.   Without   this   standardization, 
the    mapping    -from   primitive   lists   to   the   realization 
libraries   will   continue   to   be  a  hit  or  miss  proposition. 
One  o-F  the  major  objectives  o-f   the   Control   System   Design 
Environment   is   that   much   o-f  the  work  can  be  automated  to 
make  designing,  prototyping,  testing,  and  implementation   o-f 
controllers    -faster    and   less   expensive.    The   lack   o-f 
standardization  requires  the  intervention  of  the  designer  to 
make  the  transitions  between  the   various   elements   o-f   the 
system. 

Along  with  the  standardization  of  the  realization 
libraries,  CSDL.PAS  should  be  updated  to  incorporate  the 
standards.  This  program  is  a  real  boon  to  the  designer 
since  it  removes  the  tedious  work  of  translating  the  CSDL 
program  into  the  primitive  list.  As  previously  discussed, 
implementing  some  other  high  level  constructs  in  CSDL.PAS 
would  be  an  enhancement  of  the  value  of  the  program  for  the 
system  user.  These  constructs  should  include  CASE 
statements  and  the  use  of  subscripted  variables. 

The  Control  System  Design  Environment  has  great 
promise  and  could  be  a  lucrative  product  when  it  is  improved 
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to  provide  an  automatic  transition  -from  CSDL  description  to 
the  hardware  and  software  listings.  As  presently 
implemented,  it  requires  too  much  effort  while  moving 
through  the  different  segments  o-f  the  system.  A  great  deal 
o-f  work  remains  to  be  done,  especially  the  testing  of  the 
interfaces  between  the  different  sections  and  of  the 
realization  libraries.  It  seems  that  the  work  will  be  well 
worth  it. 
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APPENDIX  a 
CSOL  PROGRAM 


IDENTIFICATION 

DESIGNER  :  "SJTTER  FOX" 

DATE  :  n05-31-fla" 

PROJECT  :MCOAST  GUARD  DATA  LIMK  RECEIVER" 


DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  1; 
MONITORS  1; 


ENVIRONMENT 


input:keyfi_g, 1 ,  tti;  ke ychar , « , ttl  ;  manpos , 8 ,  ttl  ; 

newpos, 1 ,ttl;  position, 8, ttl;  msgready,  i  ,tti_; 

messagf,8,ttl; acnum,8, ttl; 
end  input; 

ojtput:  menu,8,ttl?d0ll,8rttl;msgvdt,8,ttl; 

msgrcvd, i ,ttl; 
emd  output; 

arithmetic:  keyinmain,8;  ^intac,8;  mmsgdsply,b; 

MLOCATION,8;  MCL0CKSET,8;  MLOGINOUT , 8;  SMMANUAL,8; 
SMAJT0,8;  AC0,8;  ACU9;  AC2,8;  AC3,8;  AC4,8;AC5,8; 
AC6,8;  AC7,8;  AC8,8;  AC9,8,*  INTPERI0D,8;  MSG0,8; 
MSGK8;  MSG2,*;  msg3,8;  MSG4,9;  msg5,8;  MSGb,8; 
MSG7,8;  MSG8,9;  MSG9, 8 ; TMLOC A T I  ON, 8 ;  TLOGIN,l; 
TLOGOUT,i;  NEXTMSG,8;  NEXTAC,8;  TPOLL,i;  COUNT, 8; 
END  ARITHMETIC? 


PROCEDURES 


FJNCTION  KEYINMAIM: 

B  I  N  A  R  Y  ,  1  ; 

SENSE  (KEYFLG); 

IF  KEYFLG  =  1  THEN  KE  Y  I  MM  A  I  t\j ;  =  1  ;  END  IF; 
END  keyinmain; 

TASK  KBIMPMAIM; 
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menu:=0;  issue  (menu); 
sense  (keychar); 

if  keychar=1  then  mintac 

if  keychar=2  then  ^msgdsply 

if  keychar=3  then  mlucation 

if  keychar=a  then  mclockset 

if  keychar=5  then  mloginout 
k  e  y  i  \h  a  i  n  :  =  0  ; 
emd  kbimpmain; 


END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

FJNCTIOM  MINTAC: 

B  I  N  A  R  Y  ,  1  ; 

SENSE(KEYCHflP); 
EMD  MINTAC; 


TASK  INTAC; 

MENU:=i;  ISSUE  (MENU); 
SENSE  (KEYCHAR); 
IF  KEYCHAR=0  THEN  KEYINMAIN 
IF  KEYCHAR=1  THEN  SMMANUAL 
IF  KEYCHAR=2  THEN  SMAUTO 
m  I N  T  A  C  :  =  0  ; 

EMD  INTAC; 


1  ;  END  if; 
i;  end  IF; 
i;  END  IF; 


FJNCTIOM  SMMANUAL: 

B I  N  A  R  Y  ,  1  ; 

SENSE(KEYCHAR)  ; 
EMD  SMMANUAL; 


TASK 


EMD 


manual; 

IF 

ACO/=0 

THEN 

POLL 

:=0; 

ISSJE 

(POLL) ; 

END 

IF 

IF 

AC  1 /  =  0 

THEN 

POLL 

:  =  l; 

ISSJE 

(POLL) ; 

END 

IF 

IF 

AC2/=0 

THEN 

POLL 

:=2; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC3/=0 

THEN 

POLL: 

:  =  3; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

Aca/=o 

THEN 

POLL: 

:=a; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC5/=0 

THEN 

POLL: 

=  5; 

ISSUE 

(POLL) ; 

EMD 

IF 

IF 

AC6/=0 

THEN 

POLL: 

■=b; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC7/=0 

THEN 

POLL: 

:  =  7; 

ISSUE 

(POLL)  ; 

EMD 

IF 

IF 

AC8/=0 

THEN 

POLL: 

:=8; 

ISSUE 

(POLL) ; 

EMD 

IF 

IF 

AC9/=0 

THEN 

POLL 

:=9; 

ISSUE 

(POLL) ; 

END 

IF 

SMMANUAL:  : 

=  o; 

manual; 

FJNCTIOM  SMAUTO: 

BINARY,  1  ; 

SENSE  (KEYCHAR) 
EMD  SMAUTO; 
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task  auto; 

MENU:=2;  issuE(uenu); 
SENSE  (KEYCHAR); 
IF  KEYCHAR=0  THEM  KEYIN^AIN 
IF  KEYCHAR=1  THEN  IMTPERIOD 
IF  KEYCHAR=2  THEN  IMTPERIOD 
IF  KEYCHAR=3  THEN  IMTPERIOD 
IF  KEYCHAR=a  THEN  IMTPERIOD 
IF  KEYCHAR=5  THEN  IMTPERIOD 
IF  KEYCHAR=b  THEN  IMTPERIOD 
S^1AUTO:=0; 
TPOLl_:  =  l  : 

EMD  AUTO? 


•  ~ 

l  ; 

J  = 

3  0  ; 

:  = 

2  0  ; 

;  = 

15  ; 

j  r 

10  ; 

j  r 

5  ; 

;  z 

1  ; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

FJNCTIOM  TPOLL: 
BINARY, 1 ; 
IF  INTPERIOD=30  THEN  IN  30  M  DO  TPOLL:=l; 

END  IN;  END  IF; 
IF  INTPERIOD=20  THEN  IN  20  M  DO  TPOLL:=l; 

END  IN;  END  IF; 
IF  INTPERI0D=15  THEN  IN  15  M  DO  TPOLL:=i; 

END  in;  END  if; 
IF  INTPERIOD=10  THEN  IN  10  M  DO  TPOLL:=l; 

END  IN;  END  IF; 
IF  INTPERIOD=  5  THEN  IN   5  M  DO  TPOLL:=i; 

END  IN;  END  IF; 
IF  INTPERIOD=  1  THEN  IN   1  M  DO  TPOLL:=l; 

END  IN;  END  IF; 
EMD  tpoll; 


TASK 


EMD 


POLLAUTO; 

IF 

AC0/=0 

THEM 

POLL 

:=0; 

ISSUE 

(POLL) 

!  END 

IF 

IF 

ACl/=0 

THEM 

POLL 

:  =  i; 

ISSUE 

(POLL) 

'     END 

IF 

IF 

AC2/=0 

THEM 

POLL 

:=2; 

ISSUE 

(POLL) 

:  END 

IF 

IF 

AC3/=0 

THEM 

POLL 

:  =  3; 

ISSUE 

(POLL)  : 

I  END 

IF 

IF 

Aca/=o 

THEM 

POLL 

:  =  a; 

ISSUE 

(POLL)- 

!  END 

IF 

IF 

AC5/=0 

THEM 

POLL 

:=5; 

ISSUE 

(POLL), 

:  END 

IF 

IF 

ACb/=0 

THEM 

POLL- 

:=6; 

ISSUE 

(POLL)  ! 

!  END 

IF 

IF 

AC7/=0 

THEM 

POLL: 

:  =  7; 

ISSUE 

(POLL)  ; 

END 

IF 

IF 

AC8/=0 

THEM 

POLL: 

=  8; 

ISSUE 

(POLL) i 

END 

IF 

IF 

ACR/=0 

THEM 

POLL: 

=  9; 

ISSUE 

(POLL)  ; 

END 

IF 

TPOLL:=0; 

POLLAJTO; 

FJNCTIOM  MMSGDSPLY: 
B  I  N  A  R  Y  ,  1  ; 
SENSE  (KEYCHAR) 
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end  mmsgdsply; 


TASK  MSGDSPLY; 

MSGVDT:=MSGO 
MSGVDT:=MSG1 
^SGV0T:=MSG2 
MSGV0T:=MSG5 
MSGVOT  :=MSG'4 
MSGVDT:=MSG5 
MSGVDT:=MSGb 
MSGVOT:=MSG7 
MSGVDT:=MSG3 
MSGVDT:=MSG9 
MMSGDSPLY:=0 

END  msgdsply; 


ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 


(MSG 
(MSG 
(MSG 
(MSG 
(MSG 
(MSG 
(MSG 
(MSG 
(MSG 
(MSG 


VDT) 
VDT) 
VDT) 
VDT) 
VDT) 
VDT) 
VDT) 
VDT) 
VDT) 
VDT) 


FJNCTIOM  ^LOCATION: 

B  I  N  A  R  Y  ,  1  ; 

SENSE  (KEYC-IAR); 
E\JD  mlocatiom; 


TASK  location; 

menu:=3;  ISSUE  (MFNJ); 

SENSE  (KEYCHAR); 

IF  KEYCHA*  =  0  THEN  KE YINMAIN :  =  1  J  END  IF; 

IF  KEYCHA^zl  THEN  NErtPOS:=i;  END  IF; 

IF  KEYCHAR=?  THEN  NEAPOS:=0;  TMLOCATION 

MLOCATION:=0; 
EMD  LOCATION; 


=i;  END  IF; 


FJNCTION  TMLOCATION: 

BINARY, l; 

SENSE(KEYCHAR) ; 
END  TMLOCATION; 

TASK  MAMLOC; 

SENSE  (MANP3S); 

POSITION:=MANPOS; 

TMLOCATION:=0; 
END  MANLOC; 


FJNCTION  MCLOCKSET: 

3INARY, l; 

SENSE(KEYCHAR) ; 
END  MCLOCKSET; 

TASK  clockset; 

MENU:=a;  ISSUE  (menjj; 
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EMD 


SENSE  (KEYCHAR); 
MCLOCKSET:=0; 
CLOCKSET; 


FJNCTION  MLOGINOUT: 

BINARY , 1 ; 

SENSE  (KEYCHAR); 
END  MLOGINOUT; 

TASK  LOGINOUT; 

MENU:=5;  ISSUE  (MENU); 

SENSE  (KEYCHAR); 

IF  KEYCHAR=0  THEN  K E Y I NMA I N : = 1 ;  END  IF; 

IF  KEYCHAR=1  THEN  TI_OGIN:=i;  END  IF; 

IF  KEYCHARz?  THEN  TLOGOUT:=l;  END  IF; 

MLOGINOUT :=0; 
END  LOGINOUT; 


FJNCTION  TLOGIN: 
BINARY, l; 

SENSE(KEYCHAR) ; 
ENID    TLOGIN; 


TASK  LO! 


IN; 

ACNUM 
FOR  C 


END  F 
IF  NE 


END 


IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
NEXTA 
IF  NE 
TLOGI 
LOGIN; 


NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 


:=0; 

OUNT 
SEN 
ACN 

OR; 

XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
XTAC 
C:=N 
XTAC 
N:=0 


FROM  l  TO  4:4  DO 
SE  (KEYCHAR); 
JM:=(ACNUM*lO)+KEYCHAR; 


=  0 

=  1 

=  2 
=  3 
=  4 
=  5 
=  6 
=  7 
=  8 
=  9 
EX 
=  1 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
TAC+1 
0  THE 


AC0  = 
AC  1  = 

AC2  = 
AC3  = 
AC4  = 
AC5  = 
ACfe  = 
AC7  = 
AC5  = 
ACR  = 


THEN 

THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


ACO 
AC1 
AC2 
ACS 
AC4 
AC5 
AC6 
AC7 
AC8 
AC9 


=ACNUM 
rACNUM 
=ACNUM 
=ACNUM 
=ACNU^ 
=ACNUM 
=ACNUM 
=ACNUM 
=ACNUM 
=ACNUM 


N  NEXTAC:=0;  END  IF; 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


FUNCTION  TLOGOUT: 

B I N  A  R  Y  ,  1  ; 

SENSE(KEYCHAR) ; 
END  TLOGOUT; 
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TASK  logout; 

acnu^:=0; 

for  count  from  1  to  '4 :  4  do 
sense  (keychar); 
acnum:=(acnum*10)*keychar 
end  for; 

then  ac0:=0;  end 

THEN  ACO:=l;  END 

THEN  AC0:=2;  END 

THEN  AC0:=3;  E  MD 

THEN  AC0:=a;  END 

THEN  AC0:=S;  END 

THEN  AC0:=6;  END 

THEN  AC0:=7;  END 

THEN  AC0:=8;  END 

THEN  AC0:=9;  END 


ENJD 


ACO=ACNU^ 
AC1=ACNUM 
AC?  =  AC\IU^I 
AC3=ACNU^ 
ACa=ACNU^ 
AC5  =  ACNU^I 
AC6=ACNU*I 
AC7=ACNU^ 
AC8=ACNU^ 
ACR=ACNUM 
TLOGOUT:=0; 
LOGOUT; 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


FJNCTION  POSCH: 

BINARY,  I  ; 

SENSE  (NErtPOS); 

IF  NErfPOS=l  THEN  POSCH:=i;  END  IF; 
EMD  POSCH; 

TASK  POSUPDATE; 

SENSE  (POSITION); 

P  0  s  C  H :  =  o ; 
ENID    POSUPDATE; 


FJNCTIOM  VSGIN: 

B  I  N  A  R  Y  ,  1  ; 

SENSE  (MS3READY); 

IF  MSGREADY=1  THEN 
ESD  ^SGIN; 


viSGIM:  =  l;    END    IF; 


TASK   msgstore; 

SENSE     (MESSAGE); 
ISSUE     (MSGRCVD); 

IF  nextmsg=o  then  aco 

IF  NEXT^S3=1  THEN  AC  1 

IF  NEXTMS3=?  THEN  AC2 

IF  NEXTMSG=3  THEN  AC3 

IF  NEXT*1SS  =  4  THEN  ACa 

IF  NEXTMSG=5  THEN  AC5 

IF  NEXTMSG=b  THEN  AC6 

IF  NEXTMSG=7  THEN  AC7 

IF  NEXTMSG=8  THEN  AC8 

IF  NEXTMSG=9  THEN  ACR 


=MESSAGE 
MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 
=MESSAGE 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


61 


END 


NEXTMSG:=MEXTMSG+1 7 
IF  NEXTMS3=10  THEN  NEXTMSG:=0; 
MSGSTORE; 


END  IF; 


CONTINGENCY  LIST 


WHEN 

KEYINMAIN 

:  100 

MS 

DO 

kbinpmain; 

WHEN 

M  I  M  r  A  c 

:  100 

MS 

DO 

I  NT ac; 

WHEN 

SMMANUAL   ! 

:  100 

MS 

DO 

MANUAL; 

WHEN 

SMAUTO 

:  100 

MS 

DO 

auto; 

WHEN 

TPOLL 

:  100 

MS 

DO 

POLLAUTO; 

WHEN 

^LOCATION 

:  100 

MS 

DO 

location; 

WHEN 

TMLOCATION 

:  100 

MS 

DO 

mamloc; 

WHEN 

POSCH      : 

:  1000 

MS 

DO 

posupdate; 

WHEN 

MMSGDS3LY  : 

:  100 

MS 

DO 

msgdsply; 

WHEN 

MCLOCKSET  ! 

:  100 

MS 

DO 

CLOCKSET; 

WHEN 

MLOGINOUT  : 

100 

MS 

DO 

loginout; 

WHEN 

T LOG  IN     : 

100 

MS 

DO 

login; 

WHEN 

TLOGOUT    ; 

100 

MS 

DO 

logout; 

WHEN 

MSGIN      : 

100 

MS 

DO 

^sgstore; 

end 
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APPENDIX  B 

CSDL  PROGRAM 
(REVISED) 


IDENTIFICATION 

DESIGNER  :  HSJTTER  FOX" 

DATE  :  -05-51-84" 

PROJECT  :"C3AST  GUARD  DATA  LINK  RECEIVER" 


DESIGN  CRITERIA 

METRIC  FIRST; 
VOLUMES  1; 
MONITORS  1; 


ENVIRONMENT 

I\|PUT:KEYFLG, 1 , TTi;  KEYCHAR,8, ttl;  manpos,8,ttl; 

nertpos, 1 , ttl;  position, 8, ttl;  msgre ad y , 1 , t tl  ; 

message,8,ttl;acnu^,8,ttl; 
emd  inputs- 


PROCEDURES 


FJNCTION  KEYINMAINJ: 
B  I  N  A  R  Y  ,  1  ; 
SENSE  (KEYFLG); 


63 


F.NiD 


IF     KEYFLG=1 

keyinmain; 


THEN  KEriNMATM:  =  l  ;  END  IF; 


TASK  KBINPMAIM; 

MENU:=0;  ISSUE  (MENU) 
SENSE  (KEYCHAR); 
IF  KEYCHAR=1  THEN 
IF  KEYCHAR=?  THEN 
IF  KEYCHAR=3  THEN 
IF  «EYCHA3=q  THEN 
IF  KEYCHAR=5  THEN 
KEYl\IMAIN:=0; 

ENID    KBIMPMAIN; 


MINTAC    : 

MMSGDSPLY: 
MLOCATION: 
MCLOCKSET  : 
MLOGINOUT: 


END 
END 
END 

END 
END 


IF; 
IF; 
IF; 
IF; 
IF; 


FUNCTION  MINTAC: 

BINARY,  1  ; 

SENSE(KEYCHAR)  ; 
E^D  MINTAC; 


T&SK  I N  T  A  C ; 

MENU:=i;  ISSUE  (MENU); 
SENSE  (KEYCHAR); 
IF  KEYCHAR=0  THEN  KEYINMAIN 
IF  KEYCHAR=1  THEN  SMMANUAL 
IF  KEYCHARrP  THEN  SMAUTO 
M  I  N  T  A  C  :  =  0  ; 

E>JD  I  NT  AC; 


=i;  end 

IF 

=l;  END 

IF 

=1;  end 

IF 

FUNCTION  SMMANUAL: 
BINARY, 1 ; 

SENSE(KEYCHAR) ; 
END  SMMANUAL; 


TASK 


E  \D 


MANUAL 

.  J 

IF 

AC0/=0 

THEN 

POLL: 

,=0; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

ACl/=0 

THEN 

POLL: 

:  =  l  ; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC2/=0 

HEN 

POLL: 

:=2; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC3/=0 

THEN 

POLL: 

.  =  3; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC4/=0 

THEN 

POLL: 

:=4; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC5/=0 

THEN 

POLL- 

:=B; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC6/=0 

THEN 

POLL: 

,=6; 

ISSUE 

(POLL); 

END 

IF 

IF 

AC7/=0 

THEN 

POLL: 

:  =  7; 

ISSUE 

(POLL) ; 

END 

IF 

IF 

AC8/=0 

THEN 

POLL" 

:=R; 

ISSJE 

(POLL) ; 

END 

IF 

IF 

AC9/=0 

THEN 

POLL 

:=9; 

ISSUE 

(POLL)  ; 

END 

IF 

SMMANUAL: : 

=  o; 

manual; 

t 
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FJNCTION  S^AUTO: 

BINARY, 1 ; 

SENSE  (KEYCHAR); 
END  SMAUTO; 


TASK  auto; 

MENU:=2;  ISSUEMENU) ; 
SENSE  (KEYCHAR); 

IF  KEYCHAR=0  THEN  KEYINMAIN 

IF  KEYCHAR=1  THEN  INTPERIOD 

IF  KEYCHARr?  THEN  INTPERIOD 

IF  KEYCHAR=5  THEN  INTPERIOD 

IF  KEYCHAR='4  THEN  INTPERIOD 

IF  KEYCHAR=5  THEN  INTPERIOD 

IF  KEYCHAR=b  THEN  INTPERIOD 
SENSE  (CL3CO; 
INTTIME  :=  lLOCK; 

smauto:=o; 

TPOLL:=l ; 
END  AUTO; 


J  — 

1  ; 

;  = 

30  ; 

:  = 

20    ; 

j  = 

15  ; 

:  = 

10  ; 

j  = 

5  ; 

i  - 

l  ; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

END 

IF; 

FJNCTION  TPOLL: 
B  I  N  A  R  Y  ,  1  ; 
SENSE  (CLOCK); 
IF  CLOCK-INTTIME 

END  tpoll; 


>  INTPERIOD  THEN  TPOLL:=l;  END  IF; 


TASK  POLLAUTO; 

IF  AC0/=0  THEN  POLL 

IF  ACl/=0  THEN  POLL 

IF  AC^/=0  THEN  POLL 

TF  AC3/=0  THEN  POLL 

IF  AC4/=0  THEN  POLL 

IF  AC5/=0  THEN  POLL 

IF  AC6/=0  THEN  POLL 

IF  AC7/=0  THEN  POLL 

IF  AC6/=0  THEN  POLL 

IP  AC9/=0  THEN  POLL 


:0; 

■  \  ; 

■  2; 
3; 

:5; 
b; 
7; 


=  9 


ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 
ISSUE 


(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 
(POLL) 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF; 

if; 
if; 
if; 
if; 
if; 
if; 
if; 
if; 
IF; 


END 


TPOLL:=0 
POLLAUTO; 


FJNCTION  MMSGDSPLY: 

BINARY, 1 ; 

SENSE  (KEYCHAR); 
END  MMSGDSPLY; 

TASK  msgdsply; 
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MSGVDT:=M5G0;  ISSUE(MSGVDT) 


EMD 


MSGVDT:=MSGl; 
MSGVOT:=MSGa; 
MSGVDT:rMSG5; 
MSGV0T:=M5G'4; 
MSGVDT:=M5G5; 
MSGVDT:=MSG6; 
MSGVDT:=MSG7; 
MSGVDT:=MSGR; 
MSGvDT:=M3G9; 
MMSGDSPLY:=0; 
MSGDSPLY; 


ISSUE(MSGVOT) 

ISSUE(MSGVOT) 
ISSUE(MSGVDT) 
ISSUE(MSGVDT) 
ISSUE(MSGVDT) 
I5SUE(MSGV0T) 
ISSUE(MSGVDT) 
ISSUE(MSGVOT) 
ISSUE("SG\/DT) 


FJNCTIOM  MLOCATIOM: 

BINARY,  1  ; 

SENSE  (KEYCHAR); 
EMD  ^LOCATION; 


TASK  location; 

menu:=3;  ISSUE  (menu); 

SENSE  (KEYCHAR); 

IF  KEYCHARrO  THEN  KE Y I NMA I N  :  =  1  ;  END  IF; 

IF  KErCHAR=l  THEN  NE*IPOS:  =  i;  END  IF; 

IF  KEYCHAR=2  THEN  NEflPOS:=0;  TMLOCATION 

MLOCATION:=0; 
EMD  LOCATION; 


=i;  end  IF; 


FJNCTION  TMLOCATION: 

B I N  A  R  y  ,  1  ; 

SENSE(KEYCHAR); 
EMD  TMLOCATION; 

TASK  MANLOC; 

SENSE  (MAMPDS); 

POSITION:=MANPOS; 

TMLOCATIOM:=0; 

EMD  MANLOC; 


FJNCTIOM  MCLOCKSET: 

BINARY, l; 

SENSE(KEYCHAR); 
EMD  MCLOCKSET; 

TASK  CLOCKSET; 

menu:=4;  ISSUE  (menu); 

SENSE  (KEYCHAR); 
MCLOCKSET:=0; 
EMD  CLOCKSET; 
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FUNCTION    MLOGINIOUT: 
BINARY,  1; 

sense   (keychar); 
enid  viloginout; 

task  loginout; 

menu:=5;  issue  (menu); 

sense  (keychar); 

if  keychar  =  0  then  k e y i nm a  i n  :  =  1  ;  end  if; 

if  keychar=1  then  ti_ogin:  =  i;  end  if; 

if  keychar=?  then  tlogout:=l;  end  if; 

mloginout:=0; 
end  loginout; 


FJNCTION  TLOGIN: 

BINARY, 1 ; 

SENSE(KEYCHAR) ; 
END  TLOGIN; 


TASK  LOGIN; 

ACNUM:=o; 

SENSE 
IF  NEXTAC=0 
IF  NEXTAC=1 
IF  NEXTAC=2 
IF  NEXTAC=3 
IF  NEXTAC=a 

if   nextac=5 
if   nextac=6 
if  nextac=7 
if  nextac=8 
if  nextac=9 
nextac:=nexia01  ; 
if  nextac=10   then 
tlogin:=o; 
end  login; 


(ACNUM) ; 

AND  AC0=0 
AC1=0 
AC2  =  0 
AC3  =  0 

Aca  =  o 

AC5  =  0 
AC6>  =  0 
AC7  =  0 
AC8  =  0 
ACR  =  0 


AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 
AND 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


ACO 
AC1 
AC? 
AC3 
ACa 
AC5 
AC6 
AC7 
AC6 
AC9 


=  A  C  N  U  M 
=ACNUM 
=ACNUM 
=ACNUM 
=ACNUW 
=ACNUM 
=ACNUM 
=ACNUM 
=  A  C  N  U  M 
=  A  C  N  U  M 


NEXTAC:=0;  END  IF 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF 
IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 


FJNCTION  TLOGOUT: 

BINARY, 1 ; 

SENSE(KEYCHAR) ; 
END  TLOGOUT,* 


TASK  LOGOUT; 

acnum:=o; 

SENSE  (ACNUM); 
IF  AC0  =  ACNU*1  THEN  AC0:=0;  END  IF; 
IF  AC1  =  ACNUV1  THEN  AC0:=l;  END  IF; 
IF  AC2=ACNUM  THEN  AC0:=2;  END  IF; 
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IF    AC3=ACNIM    THEN    AC0:=3;    EMD    IF; 


ENID 


IF  AC4=ACNUM 

THEN 

ACO' 

:=a; 

EMD 

IF; 

IF  AC5=ACNUM 

THEN 

ACO; 

=  5; 

END 

IF; 

IF  AC6=ACNUM 

THEN 

ACO: 

:=6; 

END 

IF; 

IF  AC7=ACNUM 

THEN 

ACO: 

•  =  7; 

END 

IF; 

IF  AC8=ACNIM 

THEN 

ACO: 

:=8; 

END 

IF; 

IF  AC9  =  ACNiUM 

THEN 

ACO: 

=  9; 

END 

if; 

TLOGOUT:=0; 

LOGOUT; 

FJNCTION  POSCH: 

BINARY,  1  ; 

SENSE  (NErtPOS); 

IF  NErtPDS=l  THEN  POSCH:=i;  END  IF; 
END  POSCH; 

TASK  POSUPDATE; 

SENSE  (POSITION); 

POSCH:=o; 
END  POSUPDATE; 


FJNCTION  MSGIN: 

B  I N  A  R  Y  ,  1  ; 

SENSE  (MSGREADY); 

IF  MSGREADY=1  THEN 
END  MSGIN; 


*SGIM:=l;  END  IF; 


TASK  MSGSTORE; 

SENSE  (MES 
ISSUE  (MSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
IF  NEXTMSG 
NEXTMSG:=N 
IF  NEXTMSG 

END  MSGSTORE; 


SAGE); 

RCVD) ; 

=0  THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

EXT^SGf 

=10  THE 


=  1 
=  2 
=  3 

=  a 
=  5 
"b 
=  7 
=  9 
=  9 


ACO 
AC1 
AC2 
AC3 
ACa 

ACS 
AC6 
AC7 

AC8 
AC9 


=  MFSS 
=  MESS 
=  MESS 
=  MESS 
=  ME3S 
=  MESS 
=  MESS 
=  MESS 
=  MESS 
=  MESS 


AGE; 
AGE; 
AGE; 

age; 
age; 
age; 
age; 
age; 
age; 
age; 


END 
END 
END 
END 
END 
END 
END 
END 
END 
END 


IF 
IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


NEXTMSG:=0;  END  IF; 


CDNTINGENCY  LIST 

WHEN  KEYINMAIN 


100  MS  DO  KBINPMAIN; 
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WHEN 

MINTAC 

:  100 

MS 

DO 

I  NT AC; 

WHEN 

SMMANUAL 

:  100 

MS 

DO 

manual; 

WHEN 

SMAUTO     : 

:  100 

MS 

DO 

a  u  T  o  ; 

WHEN 

TPOLL      ! 

:  100 

MS 

DO 

POLLAUTO; 

WHEN 

MLOCATION 

:  100 

MS 

DO 

location; 

WHEN 

TMLOCATION: 

:  100 

MS 

DO 

manloc; 

WHEN 

POSCH      ! 

1000 

MS 

DO 

POSUPDATE; 

WHEN 

^MSGOSPLY  ; 

100 

MS 

DO 

msgdsply; 

WHEN 

MCLOCKSET  : 

:  100 

MS 

DO 

clockset; 

WHEN 

MLOGINDUT  : 

:  100 

MS 

DO 

loginout; 

WHEN 

TLOGIN     : 

100 

MS 

DO 

LOGIN; 

WHEN 

TLOGOUT    : 

100 

MS 

DO 

logout; 

WHEN 

MSGIM      : 

100 

MS 

DO 

msgstore; 

EMD 
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APPENDIX  C 


CSOL.PAS 
PRIMITIVE 


OUTPUT 
LISTING 


It 
2s 

16s 
17s 
18s 
19s 
20s 
21s 
22s 
23s 
2as 
25s 
26s 
27s 
28s 
29s 
30s 
31s 
32s 
33s 
34s 
35s 
36s 
37s 
38s 
39S 
U0s 
41s 
42s 
43s 
44s 
45s 
46s 
47s 
48s 
49s 
50s 
51s 
52s 
53t 
****** 

P  54s 
P  55s 
P   56s 


. genera t  ed 

.nain 

,var 

.  var 

.  var 

.var 

.var 

•  var 
.var 
.var 
.  var 
.var 
.var 
.var 
.var 

•  var 
.var 
.var 
.var 

•  var 
.var 

•  var 
.var 
.var 
.var 

•  var 
.var 
.var 
.var 
.var 
.  var 

•  var 

•  var 
.var 

•  var 

•  var 
.var 
.var 
.var 

•generated 
*********** 

.  oroc 

.  sensecond 
.  eq 


or:  SYSTEM 


******************** 


KE 
MI 

MM 
ML 

m: 

ML 
SM 

sv 

AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
AC 
IM 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
MS 
TM 
TL 
TL 
NE 
NE 
T3 
CD 
CL 
or 
*  * 
KE 
KE 
ST 


) 

YINM 
NTAC 
SGDS 
OCAT 
LOCK 
OGIN 
MANU 
AUTO 


0) 


8, 
8, 
8, 
8, 
8, 
8, 
8, 
8, 
8, 
8, 


TPER 


GO 
Gl 
G2 
G3 
G4 
G5 
G6 
G7 
G8 
G9 


LOCA 
OGIN 
OGOU 
XTMS 
XTAC 
OLL: 
UNT: 
OCK: 
:  KE 


AIN:8 

:8,0) 

PLY:8,0) 

ION:8,0) 

SET:8,0) 

OUT:8,0) 

AL:8,0) 

:8,0) 

0) 

0) 

0) 

0) 

0) 

0) 

0) 

0) 

0) 

0) 

100:8,0) 

,0) 

,0) 

,0) 

,0) 

,0) 

,0) 

rO) 

,0) 

,0) 

,0) 

T  1 0  N  :  8 ,  0  ) 

:l,0) 

T:1,0) 

G:8,0) 

:8,0) 

1,0) 

8,0) 

8,0) 

YINMAIN 


Y  I  N  M  A  I  N  :  ) 

YFLG: 1 ) 

01  ,KEYFLG,a)C01  :3,  1, 
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57s. 
58s. 
59s. 
60s. 
61  t  . 
******* 

P  62s. 
63s. 
64s. 
65s. 
66s  . 
67s. 
68s. 
69s. 
70s. 
71s. 
72s. 
73s. 
74s. 
75s. 
7t>s. 
77s. 


78s. 
79s. 
80s. 
81s. 
82s. 
83s. 
84s. 
85s. 
86s. 
87s. 
88t. 
******* 

P  89s. 
P  90s. 
P  91s. 
P  92t  . 
******* 

P   93s. 

94s. 

95s. 

96s. 

97s. 

98s. 

99s. 
100s. 
101s. 
102s. 
103s. 
104s. 


P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 


j  ITlDf 

assign 

I  oc 

exit  oroc 

generated 

********** 

oroc 

assign 

i  ssuevent 

sensecond 

eg 

j  mpf 

assign 

1  oc 

eg 

j  nnof 

assign 

1  oc 

j  mpf 

assign 

1  oc 

eo 

j  mpf 

assign 

1  oc 

ea 

j  mof 

assign 

1  oc 

assign 

exit  oroc 

gene  rated 

********** 

oroc 

sensecond 
ex  i  t  dtoc 
generated 
********** 

oroc 

assign 

i  ssuevent 

sensecond 

ea 

j  mo  f 

assign 

1  oc 

ea 

j  mo  f 

assign 

1  oc 


3T01 
KEYI 
S01 : 
KEYI 
or: 

*  * 

K3TN 
MENU 
MENU 
KEYC 
ST0  1 
5>T01 
MINT 
302: 
3T0  1 

aroi 

MMSG 

5)03: 
5)T01 
5)T01 
MLOC 
5)04: 
5)T01 
5)T01 
MCLO 
a)05: 
5)T01 
5)T01 
MLOG 
5)06: 
KEYI 
K3IN 
or: 

*  * 

MIMT 
KEYC 
MINT 
or: 

*  * 

I NJT  A 
MENU 
MENU 
KEYC 
5)T01 
5)T01 
KEYI 
-307: 
5)T01 
5)T01 
SviMA 
5)08: 


,5)01  : 

NMAIN 
) 

NMAIN 
KBINP 

PMAIN 
/5)C02 
:8) 

HAR:8 
/KEYC 
,  5)02: 

Ac,ac 
) 

,KEYC 

,303: 

DSPLY 

) 

,KEYC 

,5)04: 

ATION 

) 

,KEYC 

,305: 

CKSEI 

) 

/KEYC 

,5)06: 

INOUT 

) 

NMAIN 

PMAIN 

MINTA 


3) 

,9C01 : 1 /8) 

/KEYI^MAIN: ) 

MAIN 

: ) 

:8/8) 

) 

HAR/5)C01  :8/8/8) 

8) 

01 :8/3) 

HAR,5)C03:8/8/8) 

8) 

/5)C01  :8,8) 

HAR,5)C04:8,8/8) 

8) 

rSCOl :3/8) 

HAR/5)C05:3/8/«) 

3) 

,5)C01  :8/8) 

HAR,5)C06:8/8/8) 

3) 

,SC01 :8/8) 

/5)C02:  1  /3) 
,KBINPMAI\|:  ) 

C 


AC:  ) 

HAR:8) 
AC/MIMTAC:  ) 
INTAC 


C:) 

/5)C01 

:8) 

HAR:8 

/KEYC 

,5)07: 

NMAIN 

) 

/KEYC 

/5)08: 

NUAL, 

) 


:8/8) 

) 

HAR/5)C02:8/8/8) 

8) 

,5)C01  :  1  /8) 

HAR/5)C01  :8,8/8) 

8) 

3C01  :3,8) 
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1  05s .  eg 

1 06s . j  mof 

1 07s • ass  i  gn 

108s. loc 

1  09s . ass  i  gn 

1  1  0s  .  ex  i  t opoc 

lilt, generated 

*************** 

1 1 2s . opoc 
113s. sensecond 
1  1  4s  .  e  x  i  toroc 
1  1 5t . generat  ed 
*************** 

116s. oroc 

1  1  7s  .  ne 
1 1 8s . j  mof 
1  1  9s • ass  i  gn 
1  20s .  i  ssuevent 
121 s . 1 oc 
1 22s .  ne 
1 23s . j  mof 
1 24s . ass  i  gn 
1 25s . i  ssuevent 
126s . 1 oc 
1 27s  .  ne 
1 28s . j  mof 
1 29s . ass  i  qn 
1  30s . i  ssuevent 
1 3 1 s . 1 oc 
1 32s. ne 
1 53s . j  mpf 
1 34s . ass  i  gn 
1 35s  .  i  ssuevent 
1 36s • 1 oc 
1 37s .  ne 
1 38s . j  mof 
139s. assign 
140s.  i  ssuevent 
141s. loc 
142s. ne 
1  43s  •  j  mof 
1  44s  .assign 
1 45s . i  ssuevent 
146s. loc 
147s. ne 
148s. j  mof 
1 49s . ass  i  gn 
1 50s . i  ssuevent 
1 51 s . 1 oc 
152s . ne 
1 53s . j  mo  f 


5)T01,KEYCHAR,5)C03:8,8,8) 

5)T01 ,309:8) 

SviAUTO,5)C01  :8,8) 

5)09:  ) 

MINTAC, 5)C02: 1 ,8) 

IMTACINTAC:) 

or:  SMMANUAL 

*  * 

SMMANUAL: ) 
KEYCHAR:8) 
SMMANUAL, SMMANUAL: ) 
or:  MANUAL 

*  * 

MANUAL: ) 

5)T01 ,AC0,3C02:8,8,8) 

3T01  ,4)10:8) 

P0LL,3CQ2:8,8) 

PDLL:8) 

5)10:  ) 

3101 , AC1 , 3C02:8,8,8) 

5)T01  ,oDll:8) 

P0LL,5)C01  :8,8) 

P3LL:8) 

5)11 :  ) 

3T01  ,  AC2,5)C02:8,8,8) 

5)T01  ,5)12:3) 

PDLL,5)C03:8,8) 

P0LL:8) 

5)12:  ) 

3T01,  AC3,  j)C02:8,8,8) 

5)701,5)1  5:8) 

P3LL,5)C04:8,8) 

P3LL:8) 

5)13:  ) 

5)T01  ,AC4,5>C02:3,8,*) 

5)T01  ,5)14:8) 

PDLL,5)C05:8,8) 

P9LL:8) 

5)14:  ) 

5)T01  ,AC5,i)C02:8,P,8) 

5)T01  ,5)15:8) 

P3LL,5)C06:8,8) 

P3LL:8) 

5)15:  ) 

5)T01,  AC6,5)C02:3,8,8) 

a)T01  ,5)16:8) 

P3LL,5)C07:8,8) 

P3LL:8) 

5)16:  ) 

aT01,AC7,5)C02:R,8,8) 

5)f01  ,5)17:8) 
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.54 
.55 

56 

57 
.58 
,59s 

60s 

6 

b 


Is 

2s 


6 

.6< 


>3s 
>4s 
>5s 
>6s 
>7s 
>8s 
69t 

:  *  *  * 

70s 
71s 
72s 
73t 

r  *  *  * 

74s 

75s 

76s 

77s 

78s 

79S 

[80s 

181s 

82s 

83s 

84s 

85s 

86s 

87s 

88S 

89s 

90s 

91s 

92s 

93s 

94s 

95s 

96s 

97s 

.98s 

99s 

200s 

201s 

202s 


.  ass 

.  i  ss 
.  1  oc 
.  ne 

•  j  mo 
.ass 
.  i  ss 
.  1  oc 

•  ne 

.  j  T\0 

.ass 
.  i  ss 

.  1  oc 
.ass 
.  ex  i 

.  sen 

•  *  *  * 

.  oro 
.  sen 

•  exi 
.  gen 

•  *  *  * 
.  oro 
.  ass 
.  i  ss 

•  sen 

•  eq 

•  j  mo 
.ass 
.  1  oc 

•  ea 

•  j  mo 
.  ass 
.  1  oc 

•  ea 

.  j  mo 
.ass 
.  1  oc 

•  ea 

•  j  mo 
.ass 
.  )  oc 
.eq 

.  j  mo 
.  ass 
.  1  oc 

•  eq 

.  j  mo 
.  ass 
.  1  oc 
.eq 


i  qn 
ue ven t 


f 

i  qn 
ueven  t 


f 

i  qn 
ue ven t 

i  qn 
t  dtoc 
e  r at ed 
******* 

c 
second 

t  OPOC 

erated 
******* 

c 

i  qn 

uevent 
second 

f 
i  qn 


f 
i  qn 

f 
i  qn 

f 
i  gn 

f 
i  qn 

f 
i  qn 


POLL, 
POLL: 
317:  ) 
3T01  , 
3T01  , 
PDLL, 
PDLL: 
518:) 
3T01  , 
3T01, 
PDLL, 
PDLL: 
319:) 
S^MAN 
MANUA 
or:  S 

*  * 

S*AUT 
KEYCH 
S^AUT 
or :  A 

*  * 

AJTO: 
MENU, 

MENU: 
KEYCH 
3T01, 
3T01, 
KEYIN 
5)20:  ) 
3T01  , 
3T01, 
IMTPE 
821: ) 
3T01  , 
3T01  , 
INTPE 
322:) 

aroi , 

3T01  , 

nrPE 

323:  ) 
3T01  , 
3T01  , 
nTPE 
324:  ) 
3T01, 
3T01  , 
IMTPE 
325:  ) 
3T01, 


3C08:8, 
8) 

AC8, iCO 
318:8) 
3C09:8, 
8) 

AC9,  -uCO 
319:8) 
3C10:8, 
8) 

UAL,i)C0 
L,  MA  *JIJ  A 
MAUTO 

0:  ) 
AR:8) 

0,SMAUT 
UT0 

) 

3C03:8, 

8) 

AR:8) 

KEYCHAR 

320:8) 

MAIN,3C 

KEYCHAR 
321 : 8) 
RI0D,3C 

KEYCHAR 

322:8) 

RI0D,3C 

KEYCHAR 
323:8) 

RI0D,3C 

KEYCHAR 
324:8) 

RI0D,3C 

KEYCHAR 

325:3) 

RI0D,3C 

KEYCHAR 


8) 

2:8,8,8) 
8) 

2:8,8,8) 
8) 


2:1,8) 
L:  ) 


0: ) 

8) 

,3C02:8,8,8) 

01:1,3) 

,3C01 :8,«,8) 

11:8,8) 

, 3C03:8,8,8) 

12:8,8) 

, 3C04:8,*,8) 

13:8,8) 

, 3C 05:6,8,8 ) 

14:8,8) 

,3C06:3,8,8) 

06: 3,8) 

,3C 07: 3, 8, 8) 
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203s 
204s 
205s 
206s 
207s 
208s 
209s 
21  Ot 
****** 

P  211s 
212s 
213s 
214s 
215s 
216s 
217s 
218t 

****** 

P  219s 
220s 
221s 
222s 
223s 
224s 
225s 
226s 
227s 
228s 
229s 
230s 
231s 
232s 
233s 
234s 
235s 
236s 
237s 
238s 
239s 
240s 
241s 
242s 
243s 
244s 
245s 
246s 
247s 
248s 
249s 
250s 
251s 


.  j  mof 
.  ass  i 
.  1  oc 
.  ass  i 
.  ass  i 
.  a  s  s  i 

•  exit 

•  gene 

•  *  *  *  * 

.  oroc 

•  sub 

.gt 

.  j  mo  f 
.ass  i 
.  1  oc 
.exit 
.  gene 

•  *  *  *  * 

•  oroc 
.  ne 

.  j  m  o  f 
.  ass  i 
.issu 
.  1  oc 

•  ne 

.  j  mo  f 
.  ass  i 

•  i  ssu 
.  1  oc 
.ne 

.  j  mof 
.  ass  i 
.  i  ssu 
.  1  oc 

•  ne 

.  j  iPDf 
.  ass  i 
.issu 

•  1  oc 
.  ne 

.  j  mo  f 
.  ass  i 
.issu 
.  1  oc 

•  ne 

.  j  mo  f 
.  ass  i 
.issu 
.  1  oc 

•  ne 

.  j  mDf 


gn 

an 

gn 

gn 

oroc 

rated 

****** 


gn 

DPOC 

rated 
****** 


gn 
event 


gn 
event 


gn 

event 


gn 

event 


gn 

event 


gn 

event 


-dTO  1  , 

INJTPE 
326:  ) 
IMTTI 
SMAUT 
TPOLL 
AJTO, 
or :  T 

*  * 
T=>0LL 

aroi , 

3T01, 
3T01, 
TPOLL 
327:  ) 
TPOLL 
or:  P 

*  * 

P0LLA 
3T01  , 
3T01  , 
P3LL, 
POLL: 
a)28:  ) 
3T01, 
3T01  , 
POLL, 
POLL: 
329:  ) 
3T01  , 
3T01  , 
POLL, 
POLL: 
330:  ) 
3T01  , 
3T01  , 
PDLL, 
POLL: 
331:  ) 
3T01  , 
3T01, 
POLL, 
POLL: 
332:  ) 
3T01, 
3T01  , 
POLL, 
POLL: 
333:  ) 
3T01, 
3T01  , 


t)26:8) 
RIOD,3C01 :8,8) 

ME,CL0CK:3,8) 
0,3C02: 1,8) 
,i)C01  :  1  ,8) 
AUTO: ) 
POLL 

:) 

CLOCK, INTTIME:8,8,8) 
3T01 , INTPEPI0D:8,8,8) 
327:8) 
,3C01 : 1 ,8) 

, TPOLL:  ) 
OLLAJT0 

UTO:  ) 

AC0,3C02:8,8,8) 

328: ft) 

3C02:8,8) 

8) 

AC1 ,3C02:9,8,8) 

329:8) 

3C01 :8,8) 

8) 

AC2,3C02:8,8,8) 

330:8) 

3C03:8,8) 

8) 

AC3,3C02:8,8,8) 

331:8) 

3C04:8,8) 

8) 

AC4,3C02:8,8,8) 

332:8) 

3C05:3,8) 

8) 

AC5,9C02:8,8,8) 

333:8) 

3C06:8,8) 

8) 

ACb,3C02:8,8,8) 
334:8) 
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252s 
253s 
254s 
255s 
256s 
257s 
258s 
259s 
260s 
261s 
262s 
263s 
264s 
265s 
266s 
267s 
268s 
269s 
270s 
271s 
272t 
****** 

P  273s 
P  274s 
P  275s 
P  276t 
****** 

P  277s 
278s 
279s 
280s 
281s 
282s 
283s 
284s 
285s 
286s 
287s 
288s 
289s 
290s 
291s 
292s 
293s 
294s 
295s 
296s 
297s 
298s 
299s 
300t 


.assign 

•  i  ssuevent 
.  1  oc 

•  ne 

.  j  mo  f 
•assign 
. i ssuevent 
.  1  oc 
.  ne 
.  j  mpf 
.assign 
. i  ssuevent 
.  1  oc 
.  ne 

•  j  mo  f 
.assign 

. i  ssuevent 
.  1  oc 
•assign 
•exitoroc 
. generat  ed 
*********** 

•  OPOC 

. sensec  ond 
.exit  oroc 
•generated 
*********** 

.  oroc 
•assign 
. i  ssuevent 
. ass  i  gn 
. i  ssuevent 
. ass  i in 
. i  ssuevent 
. ass  i  gn 
. i  ssuevent 
. ass  i  gn 
. i  ssuevent 
. ass  i  qn 
. i  ssuevent 
.  a  s  s  i  g  n 

•  i  ssuevent 
•assign 

. i  ssuevent 
•assign 
. i  ssuevent 
. ass  i  gn 

•  i  ssuevent 
. assi  gn 

•  ex  i  t  dpoc 

. generat  ed 


P0LL,3C07:8,8) 

P0LL:8) 
334:  ) 
3T01  ,AC7 


3T01 , 335 
P0LL,3C08:8,8) 


, }C02:8,8,8) 
:8) 


POLL: 
335:  ) 
3T01  , 
3T01  , 


AC9 
337 
3C1 
8) 


8) 

AC8 
336 

POLL, 3C0 

P0LL:8) 

336:  ) 

3T01 

ST01 

POLL 

POLL 

337:  ) 

TP0LL,3C 

POLLAUTO 

or:  MMSG 

*  * 

MvlSGDSPL 
KEYCHAR: 
M-1SGDSPL 
or:  MSGD 

*  * 

MSGDSPLY 
MSGVDT,  vi 


,  i)C02:8,8,8) 

:8) 

9:8,8) 


,  i)C02:8,8,8) 

:8) 

0:8,8) 


MSGVDT 

MSGVDT 

^SGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MMSGDSPL 

MSGDSPLY 

or:  ML0C 


02: 1 ,8) 

,P0LLAUT0:  ) 
DSPLY 

Y:  ) 
8) 

Y,mmsGDSPLY: ) 
SPLY 

:  ) 

SG0:8,8) 

) 

SGI  :8,8) 

) 

SG2:8,8) 

) 

SG3:8,8) 

) 

SG4:8,8) 

) 

SG5:8,8) 

) 

SG6:8,8) 

) 

SG7:8,8) 

) 

SG8:8,8) 

) 

SG9:8,8) 

) 

Y,3C02: 1 ,8) 

, MSGDSPLY: ) 

ATION 
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****** 
P  301s 
P  302s 
P  303s 
P  304t 
****** 

P  305s 
306s 
307s 
308s 
309s 
310s 
31  Is 
312s 
313s 
314s 
315s 
316s 
317s 
318s 
319s 
320s 
321s 
322s 
323s 
32ut 

****** 

P  325s 
P  326s 
P  327s 
P  328t 
****** 

P  329s 
330s 
331s 
332s 
333s 
334t 

****** 

P  335s 
P  336s 
P  337s 

P  338t 
****** 

P  339s 
340s 
341s 
342s 
343s 
344s 
345t 


P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 


P 
P 
P 
P 
P 
P 


•  *  *  * 

•  oro 
.  sen 
.  ex  i 
.  gen 

•  *  *  * 

.oro 
.  ass 
.  i  ss 

•  sen 
.eq 

.  j  T1D 

.ass 

.  1  oc 
.eq 

•  j  'no 
.  ass 
.  1  oc 

•  eq 

.  j  TIO 

.  ass 

•  ass 

.  1  oc 
.ass 

•  ex  i 

.gen 

•  *  *  * 
.  oro 
.  sen 

•  ex  i 
.  gen 

•  *  *  * 

.  OPO 
.  sen 
.ass 
.ass 
.  ex  i 
.  gen 

•  *  *  * 

•  OPO 

.  sen 

•  ex  i 

.  gen 

•  *  *  * 

.  OPO 

.ass 
.  i  ss 

.  sen 
.ass 

.  ex  i 

.  oen 


******* 

c 

second 
tppoc 
erat  eel 
******* 

c 
i  qn 

uevent 
second 

f 
i  gn 


f 
i  gn 

f 

i  gn 
i  gn 

i  gn 

t  OPOC 

erat  ed 

******* 

c 

second 
t  dpoc 
erated 
******* 

c 

second 
i  gn 
i  gn 
t  dpoc 
e  pat  ed 
******* 

c 

second 
t  dpoc 

erated 
******* 

c 

i  qn 

uevent 
second 
i  gn 
t  OPOC 

erated 


*  *  * 

MLOC 
KEYC 
MLOC 

op: 

*  *  * 

LDCA 
MENU 
MENU 
KEYC 
3T01 
oi)T01 
KEYI 
5)38: 

aroi 

ST01 

NErtP 
-939: 
3T01 
-5T01 
NErtP 
HLO 
94  0: 
MLOC 
L3CA 

op: 

*  * 

TMLO 
KEYC 
T^LO 

or: 

*  * 

MANL 
MANP 
P3SI 
TviLO 
MANL 
or: 

*  * 

MCLO 
KEYC 

MCLO 
or  : 

*  * 

CLOC 
MENU 
MENU 
KEYC 
MCLO 
CLOC 
op  : 


ATION 
HAR:8 
ATION 
LOCAT 

TION: 

,  3C0  4 

:8) 

har:8 

,KEYC 

,338: 

NMAIN 

) 

,  KEYC 

,339: 

0S,3C 

) 

,KEYC 

,5)40: 

0S,9C 

CATIO 

) 

ATION 

TION, 

TMLOC 

CATIO 
HAR:8 
CATIO 

MANL0 

OC:  ) 

0S:8) 

TION, 

CATIO 

0C,ma 

MCLOC 

CKSET 

HAR:8 
CKSET 
CLOCK 


:) 
) 

,ML0CATI3N: ) 

ION 

) 

:8,8) 

) 

HAR,SC02:8,8,8) 

8) 

,S)C01  :  1,8) 

HAR,<i)C01  :«,8,8) 

8) 

01:1,8) 

HAR,3C03:8,8,8) 

8) 

02:  1 ,8) 

N,3C01 :8,8) 

,3C02: 1,8) 
LOCATION: ) 
ATION 

N:  ) 

) 

vJ,TML0CATI0N:  ) 

C 


MANP0S:8,8) 
>J,3C02:  1  ,8) 
MLOC: ) 
KSET 

:  ) 
) 

,MCLOCKSET: ) 
SET 

) 


KSET 

,SC05:8,8) 

:8) 

HAR:8 

CKSET 

KSET, 

ML0GI 


) 

,3C02: 1,3) 

CLOCKSET: ) 

NOUT 
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****** 
P  346s 
P  347s 
P  348s 
P  349t 
****** 

P  350s 
351s 
352s 
353s 
354s 
355s 
356s 
357s 
358s 
359s 
360s 
361s 
362s 
363s 
364s 
365s 
366s 
3b7s 
368t 

****** 

P  369s 
P  370s 
P  371s 
P  372t 
****** 

P  373s 
374s 
375s 
376s 
377s 
378s 
379s 
380s 
381s 
382s 
383s 
384s 
385s 
386s 
387s 
388s 
389s 
390s 
391s 
392s 


*********** 

.  oroc 

. sensecond 

. ex  i  t oroc 

. generat  ed 

*********** 

.  oroc 
.assi on 
. i  ssuevent 
. sensec ond 

•  eq 

•  j  mo  f 
.assign 
.  1  oc 
.ea 

•  j  mof 

. ass  i  qn 

.  I  OC 

.eq 

.  j  mo  f 

.assign 

.  1  oc 

.assign 

.exit  oroc 

. generat  ed 

*********** 

.oroc 

.sensecond 
. ex  i  t  Droc 
.generated 
*********** 

.  oroc 

.assign 

. sensecond 

.eq 

•  ea 
.and 

.  j  roof 
•assign 
.  1  oc 

•  eq 
.  eq 

.  and 
.  jmpf 
•assign 
.  1  oc 

•  eq 
.  eq 

.  and 

•  j  mDf 
•assign 


*  *  * 
MLOGINO 
KEYCHAR 
MLOGINO 
or:  LOG 

*  *  * 

L3GIN0U 

MENU,3C 

MENU:8) 

KEYCHAR 

3T01,KE 

3T01,34 

KEYINMA 

5)41  :  ) 

3T01  ,KE 

3T01  ,34 

TLOGIN, 

3U2:  ) 

3T01,KE 

3T01 ,34 

TLOGOUT 

343:  ) 

MLOGINO 

L3GIN0U 

or:  TL0 

*  * 

TLOGIN: 
KEYCHAR 
TLOGIN, 
or:  LOG 

*  * 

LOGIN: ) 
ACNUM,3 
ACNUM:8 
3T01,NE 
3T02,  AC 
3T0  1  ,  3T 
3T01  ,34 
AC0, ACN 
a  a  4  : ) 
3T01  ,NE 
3T02,  AC 
3T01,3T 
3T01  ,34 

a:i,acn 
345: ) 
3T01,NE 
3T02,AC 
3T01 ,3T 
3T01 ,34 
AC  2, ACN 


UT:) 

:8) 

UT,MLOGINOUT: ) 
IN3UT 

T:  ) 
06:8,8) 


:8) 

YCHA9,3 

1:8) 

IN,3C01 

Y  C  H  A  R  ,  3 
2:8) 
3C01  :  1 , 

YCHAR,3 
3:8) 
,3C01 : 1 

UT,i)C02 
T, LOGIN 
GIN 

) 

:8) 

TLOGIN: 

IN 


C02:8,8 

) 

XTAC3C 

0,3C02: 

01,3T02 

4:8) 

UM:8,8) 

XTAC3C 
1,3C02: 
01 ,3T02 
5:8) 
UM-.8,8) 

XTAC,3C 
2,3C02: 
01 ,3T02 
6:8) 

UM:8,8) 


C02:8,8,8) 

:  1,8) 

C01  :8,8,8) 

8) 

C03:8,8,8) 

,8) 

:  1  ,8) 
OUT:  ) 


02:9,8,8) 

8,8,8) 

:8,8,8) 


01  :9,8,8) 

8,8,8) 

:8,8,8) 


03:8,8,8) 

8,8,8) 

:8,8,8) 
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393s 

394s 

395s 

396s 

397s 

398s 

399s 

400s 

40ts 

402s 

403s 

404s 

405s 

406s 

407s 

408s 

409s 

410s 

411s 

412s 

413s 

414s 

415s 

416s 

417s 

418s 

419s 

430s 

421s 

422s 

423s 

424s 

425s 

426s 

427s 

428s 

429s 

430s 

431s 

432s 

433 

434 

435 

436 

437 

438 

439 

440s 


44 
44 
44 


Is 
2s 
3s 


loc 

eq 
eq 
and 

j  TlDf 

assign 

1  oc 

eq 

ea 

and 

j  mD  f 

assign 

1  oc 

eq 

ea 

and 

j  mpf 

assign 

loc 

eq 

ea 

and 

j  mo  f 

ass  i  gn 

1  oc 

eq 

ea 

and 

j  mpf 

ass  i  gn 

loc 

ea 

eq 

and 

j  mo f 

assign 

1  oc 

ea 

ea 

and 

j  mo  f 

assign 

1  oc 

add 

assign 

eg 

j  mof 

ass  i  gn 

loc 

ass  i  gn 

exit  dpoc 


(946:) 
( 3  T  0  1 , 
(3T02, 
(3T01  , 
(3T01, 
(ftC3,A 
(547:  ) 
(3T01  , 
(3T02, 
(3T01  , 
(3T01 , 
(AZ4,A 
(948:) 
(9T01  , 
(3T02, 
(3T01, 

(ami, 

(AC5,A 
(3)49:  ) 

(ami , 

(3T02, 

(ami, 
(ami , 

(AC6, A 

(aso: ) 
(ami , 

(3T02, 

(ami, 
(ami , 

(AC7, A 
(351 : ) 

(ami, 

(3T02, 
(3T01, 

(ami , 

(AC8, A 
(352:) 
(3T01 , 
(3T02, 

(ami , 
(ami , 

(AC9, A 
(353: ) 

(ami , 

(NEXTA 
(3T01 , 

(ami , 

(NE*TA 
(354: ) 
(TLOGI 
(LOGIN 


NEXT4C 

ac 3, ac 

3  T  0  1  ,  a 

347:8) 
CNUM:8 

NEXTAC 
AC4,i)C 

ami  ,3 

348:8) 

CNUM:8 

NEXTAC 
AC5,9C 

ami  ,a 

349:8) 
CNUM:8 

NEXTAC 
AC6,9C 

ami  ,a 

350:8) 
CNUM:8 

NEXTAC 
AC7,aC 
3T01 ,3 
351 :8) 
CNU^:8 

NEXTAC 
AC 8,  i)C 
3T01  ,3 
352:8) 

CNUM:8 

NEXTAC 
AC9,i)C 

ami  ,a 

953:8) 

CNUM;8 


,3C04: 
02:8,8 
T02:8, 

,8) 

,3C05: 
0  2:8,8 
T02:8, 

,8) 

,3C06: 
02:8,8 
T02:8, 

,8) 

,3C07: 
02:8,8 
T02:8, 

,8) 

,3C08: 
02:8,8 
T02:8, 

,8) 

,3C09: 
02:8,8 
T02:8, 

,8) 

,3C10: 
02:3,8 
T02:3, 

,8) 


NEXTAC 
C9T01 
NEXTAC 
354:8) 
C,3C02:8,8) 


,9C01 : 
:6,8) 
r acia: 


8,8,8) 

,8) 

8,8) 


3,^,8) 
,8) 

3,8) 


8,8,8) 

,3) 

8,8) 


3,8,8) 

,8) 

3,8) 


8,8,8) 

,8) 

3,8) 


3,8,8) 
,8) 

8,8) 


8,8,8) 

,8) 

3,8) 


3,8,8) 
3,8,8) 


N,3C02 
, LOGIN 


:  1  ,8) 
:) 


p  444t 
****** 

p  aa5s 
p  446s 
p  447s 
P  448t 

****** 
P  449s 
450s 
asis 
452s 
453s 
454  s 
455s 
456s 
457s 
458s 
459s 
4b0s 
461s 
462s 
463s 
464s 
465s 
466s 
467s 
468s 
469s 
470s 
471s 
472s 
473s 
474s 
475s 
476s 
477s 
478s 
479s 
480s 
48ts 
482s 
483s 
484s 
485s 
486s 
487s 
488s 
489s 
490s 
491s 
492s 


.  gen 
***  * 

oro 

sen 
e  x  i 

9en 
*  *  * 

oro 

ass 

sen 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

jmO 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

eq 

j  mo 

ass 

1  oc 

ass 


erat ed 
******* 

c 

second 
t  oroc 
erat  ed 
******* 

c 

i  gn 
sec  ond 

f 
i  gn 


f 

i  gn 

f 

i  gn 

f 
i  gn 

f 
i  gn 

f 
i  gn 

f 
i  gn 

f 
i  gn 

f 
i  gn 

f 
i  gn 

i  gn 


for: 

*  *  * 
TLOG 
KEYC 
TLOG 
or : 
*  * 

L3G0 

ACNU 

ACNU 

3T0 

3T0 

ACO 

855 

3T0 

aTo 

ACO 
856 
3T0 
3T0 
ACO 
5)57 
3T0 
3T0 
ACO 
358 
3T0 
3T0 
ACO 
3  59 
3T0 
3T0 
ACO 
360 
o)T0 
3T0 
ACO 
i)61 
3T0 
3T0 
ACO 
5)62 
3T0 
3T0 
ACO 
36  3 
3T0 
3T0 
ACO 
364 
TLOG 


TL0G0JT 


OUT: 
HAR: 
OUT, 
LOGO 

UT:  ) 

M,3C 

M:8) 

,AC0 

#o)55 

3C02 

) 

,AC1 

,856 

3C01 

) 

,AC2 

,357 

3C03 

) 

,AC3 

,  t)58 

3C0'4 

) 

r  AC4 

,o)59 

aco5 
) 

,  AC5 

,360 

3C0  6 

) 

,  AC6 

,361 

3C07 

) 

,AC7 

,  a>62 

3C08 

) 

,AC8 

,363 

3C09 

) 

,  AC9 

,  364 

3C10 

) 

OUT, 


) 

8) 

TLOGOUT: ) 

UT 


02:8,8) 

,  ACNUM:8,8,8) 

:8) 

:8,8) 

,  ACNUM:8,8,8) 

:8) 

:8,«) 

,  ACNJUM:8,8,8) 

:8) 

:8,8) 

,  AC'NiU^:8,8,8) 

:8) 

:8,8) 

,  ACNUM:8,3,8) 

:9) 

:8,8) 

, AC  MUM: 8, 8,8) 

:9) 

:8,8) 

,  ACNUM:8,8,8) 

:8) 

:3,8) 

,  ACNUM:8,8,8) 

:9) 

:  8  ,  8  ) 

,  ACNUM:8,8,8) 

:3) 

:3,8) 

, ACMUM:8,9,8) 

:8) 

:S,8) 

3C02-.1  ,8) 


79 


P  493s 
P  494t 

*  *  *  *  *  * 

P  495s 
496s 
497s 
498S 
4  99S 
500s 
501s 
502t 

****** 

P  503s 
504s 
505s 
506s 
507t 

****** 

P  508s 
509s 
510s 
511s 
512s 
513s 
514s 
515t 

****** 

P  516s 
517s 
516s 
519s 
520s 
521s 
522s 
523s 
524s 
525s 
526s 
527s 
528s 
529s 
530s 
531s 
532s 
533s 
534s 
535s 
536s 
537s 
538s 
539s 


P 
P 

P 
P 

p 

p 
P 


P 
P 

P 

P 


P 
P 
P 
P 
P 
P 
P 


.exit  oroc 
. generat ed 
*********** 

.  oroc 

.  sensecond 

•  eq 

•  j  mo  f 
•assign 
.  1  oc 

. ex  i  t oroc 

.generated 

*********** 

.  oroc 

.sensecond 
.  a  s  s  i  q  n 
.  ex  i  t  oroc 
.  generated 
*********** 

.  oroc 

.senseconi 
.  eq 
.  j  mpf 
.assign 
.  1  oc 

•  ex  i  t  oroc 

. generated 
*********** 

.  oroc 

.  sensecond 

.  i  ssuevent 

.  eq 

.  j  mof 

.assign 

.  1  oc 

.eq 

.  j  mo f 

•assign 

.  1  oc 

•  eq 

.  j  mpf 
•assign 
.  1  oc 

•  eq 

.  j  mpf 
.assign 
.  1  oc 
.  eq 
.  j  mof 
.assign 
.  1  oc 
.  eq 


LOGOUT, L 
or:  POSC 

*  * 

P0SCH: ) 
NE^POS:  1 
3T01  ,NE*J 
3T01  ,365 
P0SCH,3C 
365:  ) 
P0SCH,P0 
or:  POSU 

*  * 

P0SUPOAT 
POSITION 
P0SCH,5)C 
P0SUPDAT 
or:  MSGI 

*  * 

MSGIN: ) 
MSGREADY 
3T0  1  ,MSG 
3T01  ,  366 
MSGIN,3C 
366:  ) 
MSGIN,MS 
or:  VISGS 

*  * 

MSGST0RE 
MESSAGE: 
MSGRCVD: 
3T01  ,  NEX 
3T01,367 

a:o,mess 

367:  ) 
3T01  ,NEX 
3T01  ,368 
AC1/MESS 
368:  ) 
3T01  ,NEX 
3T01  ,369 
AC  2, MESS 
369:  ) 
3T01 ,NEX 
3T01  ,370 
AC3,MESS 
3  7  0:) 
3T01  ,NEX 
3  T  0  1  ,  3  7  1 
AC4,MESS 
371  :  ) 
S)T01,NEX 


OGOJT: ) 
H 


P0S,3C01 :R, 1 ,8) 

:B) 

01:1,8) 

SCH:  ) 
POATE 

E:  ) 
:  8 ) 

02: 1 ,8) 
E,P0SUPDATE: ) 

N 


:1) 

READY, 3C01 :8, 1,8) 

:8) 

01:1,8) 

GIN:) 
TOPE 

: ) 

8) 

1  ) 

TMSG,3C02:8,8,8) 

:8) 

AGE:8,8) 

TMSG,3C01 :3,fl,8) 

:8) 

AGE:8,8) 

TMSG,3C03:8,8,«) 
:B) 

AGE:8,8) 

T  4SG,<dC0u:H,8,8) 

:8) 

AGF:8,8) 

T^SG,3C05:8,8,8) 
:8) 

AGE:8,8) 

TMSG,3C06:8,8,8) 
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p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 
p 


540s. 
541s. 
542s. 
543s. 
544s. 
545s. 

54fes. 

547s. 
5a8s. 

549s. 
550s. 
551s. 
552s. 
553s. 
554s. 
555s. 
556s. 
557s. 
558s. 
559s. 
560s. 
5bls. 
562s. 
563s. 
5b4s. 
565s. 
566t  . 
567s. 
568s. 
569s. 
570s. 
571s. 
572s. 
573s. 
574s. 
575s. 
576s. 
577s. 
578s. 
579s. 
580s. 
581s. 
582s. 


j  mof 

ass  i  qn 

1  oc 

eq 

j  mo  f 

assign 

1  oc 

eq 

j  mo  f 

assign 

1  oc 

eq 

j  mo  f 

ass  i  qn 

loc 

eq 

j  mo f 

assign 

1  oc 

add 

assign 

eq 

j  mo  f 

assign 

1  oc 

ex  i  t  oroc 

generat  ed 

cons 

cons 

COns 

cons 

cons 

cons 

cons 

cons 

cons 

cons 

cons 

cons 

cons 

cons 

var 

var 


(5T01,  i)72:8) 

(AC5,MESSAGE:8,8) 

(372: ) 

(3T01  ,NEXTv1SG,a)C07 

(3T01 ,373:8) 

(AC6,MESSAGE:8,8) 

(373: ) 

( 3  TO  1 ,NEXTMSG,3C08 

(3T01 ,374:8) 

(AC7,MESSAGE:8,8) 

(574:  ) 

(3T01 ,NEXTMSG,3C09 

(3T01 ,575:9) 

(A:8,MESSAGE:8,8) 

(375:  ) 

(3T01 ,NEXTMSG,3C10 

(3T01 ,376:5) 

(AC9,MES3AGE:8,8) 

(376: ) 

(3T01,NEXTviSG,3C01 

(NEXT^SG, 3T01 :8,8) 

(3T01  ,MEXT^!SG,  3C14 

(3F01 ,577:8) 

(NEXTMSG,3C02:8,8) 

(377:) 

(MSGSTORE,MSGSTORE 

for:  SYSTEM 


(3C01 , 1 

(3C02,0 

(3C03,2 

(3C04,3 

(3C05,4 

(3C06,5 

(3C07,6 

(3C09,7 

(3C09,8 

(3C10, 

(3C1  1  , 

(3C12, 

o:i3, 

(3C14, 
(3101  : 


9 

30 

20 

15 

10 

8) 


8) 

8) 

8) 

8) 

8) 

8) 

8) 

8) 

8) 

8) 

:8) 

:8) 

:8) 

:8) 


9,8,8) 


8,8,8) 


8,8,8) 


8,8,8) 


8,8,8) 


9,8,8) 


******************** 


(  3  T  0  2  :  8  ) 
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APPENDIX  0 

NEkCSDL.FOR  OJTPUT 
LISTING  (SOFTWARE) 


-  intel  8  0  8  6  realization  - 


svsH 

equ 

0D000H 

sy  s  1  3 

equ 

0C000H 

svs  1  2 

eau 

0B000H 

sy  s  1  1 

equ 

0A000H 

svslO 

eau 

9000H 

sys9 

equ 

8000H 

sysB 

equ 

7000H 

sys7 

equ 

6000H 

sysfe 

equ 

5000H 

sy  s5 

eau 

aOOOH 

svs^t 

equ 

3000H 

sy  s3 

equ 

?000H 

sys? 

equ 

1000H 

Jthis  routine  allows  for  a  IK  stack.   a  stack  that 
qrows  larger  than 

;this  will  overflow  into  the  data  seqment  .   to  allow  a 
1 arger  stack 

Jthe  ramptr  global  orimitive  in  s.Tiain  must  be  set  to 
the  requ  i  red 

lvalue.   this  method  overlaos  6  4  K  of  stack  segment  and 
o'4K  of  data 

J  segment . 


base  address 


base  address 


orq 

****** 

mav 

DX,03FFH 

mqv 

DS,DX 

mqv 

OX, 0000H 

mav 

SS,DX 

j  TIO 

0F000H 

; rom  address  oointer 
?  se t  data  segment 

;  to  1 024 

; set  stack  seamen t 

;  t  o  0  0  0  0  H 

; j  U m p  to  low 
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address  of  highest 


opq     ****** 
jmo     0F000H 


high  64K 


in  ram 


in  ram 


i  i  ram 


i  n  ram 


n  ram 


i  n  ram 


in  ram 


in  ram 


orq     102a 
Mefine  8-bit  storage 

org     1023 

KEYINM;      do      0 

org     983046 

Mefine  8-bit  storage 

org     1083 

MINTAC:      do      0 

org      983046 

;define  8-bit  storage 

org     1023 

^MSGDS:      dD      0 

ora     983046 

;define  8-bit  storage 

org     1023 

MLOCAT:      do      0 

org     983046 

Mefine  8-bit  storage 

org     1023 

MCLOCK:      do      0 

org     983046 

;define  8-bit  storage 

org     1023 

MLOGIN:      do      0 

org     983046 

/define  8-bit  storage 

ora     1023 

SMMANU:      do      0 

org     983046 

Mefine    8-bit    storaae 

org     1023 

S^AJTO:      do      0 

org     983046 

Mefine    8-bit     storage 

org     1023 


;  6  a  k  block 
Mom  address  oointer 
;to  cottom  of  2nd 

M  1  ock 


;8  bit  variable  KEYINM 

Mom  address  oointer 
Mbit  vari  abl e  MINTAC 

Mom  address  oointer 
M  bit  variaole  M vi s G D S 

Mom  address  oointer 
M  bit  variable  MLOCAT 

Mom  address  oointer 
;8  bit  variable  MCLOCK 

Mom  address  oointer 
M  bit  variable  MLOGIN 

Mom  address  oointer 
M  oit  variaole  SMMANU 

Mom  address  oointer 
M  bit  variable  S^AUTO 

Mom  address  oointer 
M  bit  vari  abl e  ACQ  i  n 


r  am 


ACQ:      db 


0 
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r  am 


ram 


ram 


r  am 


r  am 


ram 


p  am 


p  am 


r  am 


i  n  ram 


org     9830a6 
/define  8-bit  storage 

org     1023 

AC1:      db      0 

org  9830a6 

Mefine    8-bit    storage 

org  1023 

AC2:  db  0 

org     983046 
;define  8-bit  storage 

org     1023 

AC3:      db     0 

org     983046 
Pdefine  8-bit  storage 

org     1023 

AC4:      db      0 

org     983046 
/define  8-bit  storage 

org     1023 

AC5:      db      0 

org     ^83046 
/define  8-bit  storage 

org     1023 

AC6:      db      0 

org     983046 
;define  8-bit  storage 

org     1023 

AC7:      db      0 

org     983046 
; define  8-bit  storage 

org     1023 

AC8:      db      0 

org     983046 
/define  8-bit  storaae 

org     1023 

AC9:      3b     0 

ora     983046 
/define  8-bit  storage 

org     1023 

IMTPER:      dD      0 

org     Q83046 


prom  address  oointer 
?8  bit  variable  A C 1  in 

Jrom  address  oointer 
?8  bit  variable  AC2  in 

; rom  address  oointer 
?8  bit  variable  AC3  in 

Jrom  address  oointer 
JB  bit  vari  abl e  AC4  i  n 

; rom  address  oointer 
?  8  bit  variable  AC5  in 

Jrom  address  oointer 
/8  bit  variable  AC6  in 

; rom  address  oointer 
; 8  bit  variable  AC7  in 

Jrom  address  oointer 
7 8  bit  variable  AC8  in 

Jrom  address  oointer 
; 8  bit  variable  AC9  in 

Jrom  address  oointer 
;6  bit  variable  IMTPER 

Jrom  address  oointer 
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i  n  ram 


in  ram 


i  n  ram 


i  -i  ram 


i  n  ram 


i  n  ram 


in  ram 


i  n  ram 


i  "i  ram 


in  ram 


rdefine  8-bit  storage 

on     1023 

MSGO:      do      0 

orq     983046 
/define  8-bit  storage 

org     1 0?3 

MSG1:      do      0 

org     983046 
/define  8-bit  storage 

org     1023 

MSG2:      do      0 

org     983046 
/"define  8-bit  storage 

org     1023 

MSG3:      do      0 

org     983046 
; define  8-bit  storage 

org     1023 

MSG4:     do     0 

org     983046 
Jdefine  8-bit  storage 

org     1023 

MSG5:      do      0 

org     983046 
;define  8-bit  storage 

org     1023 

MSG6:      do      0 

ora     983046 
/"define  8-bit  storage 

org     1023 

M5G7:      do      0 

org     983046 
/define  8-bit  storage 

org     1023 

MSG8:      do      0 

org     983046 
/"define  8-bit  storage 

org     1023 

MSG9:      do      0 

org     983046 
^define  8-bit  storage 


;fl  oi  t  vari abl e  MSGO 

; rom  address  Dointer 
;8  bit  variable  M  S  G  1 

;rom  address  oointer 
;8  oit  variable  ^SG2 

?rom  address  oointer 
; 8  bit  variable  M  S  G  3 

? rom  address  oointer 
;8  bit  variable  ^SG4 

Jroii  address  oointer 
;8  bit  vari  abl e  MSGo 

/"rom  address  oointer 
;8  bit  variable  MSG6 

; rom  address  oointer 
;8  bit  variable  MSG7 

; rom  address  oointer 
;8  bit  variable  MSGH 

; rom  address  oointer 
;8  bit  variable  MSG9 

; rom  address  oointer 
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orq 


1023 


i  ->  ram 


TMLOCA:      do      0 

orq     983046 

;define  8-bit  storaqe 

orq     1023 


io  ran 


TLOGIN: 


0 


do 

orq     983046 
?define  8-bit  storaae 

orq     1023 


i  o  ram 


TlOGOU: 


0 


do 

orq     983046 
; define  8-bit  storaoe 

orq     1023 


i  ->  ram 


NEXT^S: 


0 


i  o  ram 


do 

orq     983046 
; define  8-bit  storage 

orq     1023 

NEXTAC:      do      0 

orq     983046 

•define  8-bit  storaoe 

orq     1023 


i  o  ram 


TPOLL:      db      0 

orq     983046 

;define  8-bit  storaqe 

orq     1023 


i  i  ram 


COUNT: 


0 


db 

orq     983046 
;define  8-bit  storaqe 

orq     102  3 


in  ram 


CLOCK: 


db 
orq 


0 


983046 


procedure  KEYINM 
-3KEYINM:     noo 


KEYINM 


;8  bit  variable  TMLUCA 

;  rom  address  oointer 
;8  bit  variable  TLOGIN 

;rom  address  oointer 
;8  bit  variable  TL0G0U 

? rom  address  oointer 
;8  bit  variable  NEXTMS 

; rom  address  oointer 
;8  oi  t  var i  abl e  NEXTAC 

; rom  address  oointer 
;8  bit  variable  TPOLL 

J rom  address  oointer 
;8  bit  variable  COUNT 

;  r  o  m  address  oointer 
;8  bi  t  vari  abl e  CLOCK 

; rom  address  oointer 

Gentry  point  for 


Metect  c ondi t i on-t yDe  inDut  (16-bit) 

in        AX,0     Jsense  environmental  data 
tiov       KEYFLGrAX 

;test  for  equality  between  KEYFLG  and  a)C01  (16-oit) 

nov  aDTOlrl         loresuooose  eouality 

mov  AX, KEYFLG        ; fetch  KEYFLG 

cmo  AX,d)C01        Jcompare  arguments 

} z  $  1 4  lend  routine  if 
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t  rue 

iiov  3toi,o 

;  branch    on    false 

tiov  ALfiiTOl 

accumu 1  at  or 

cmo  AL  /  0 

jz  301 

f al se(=0) 

Jassiin  value  of  one  variable  to  another  variable 
(16-bit) 

tiov  Ax,i)C01  ;assiqn    i)C0l 

t>ov/  KEYINM,AX  ;to    KEYING 

5)0  l:  noo  :define    location    a) 0  1 


?  not  eaua  l  >  roTO  l  =  0 

; l oad  value  into 

; c ompa re  to  zero 
?  j  umo  t  o  5)0  l  if 


procedure  KBIN^M 

aKBINPM:     noo  Jentry  Doint  for 

K3INPM 

?assign  valje  of  one  variable  to  another  variable 
(16-bi  t) 

■nov       A  X  ,  5i  C  0  2       r'assiqn  a)  C  0  2 
pov        MENU, AX         ;to  MENU 
;send  condi t i on-t yoe  outout  (16-bit) 

■nov/       AX/^ENU     Jissue  control 
out       0,AX 
;detect  c onji t i on-t ype  input  (16-bit) 

in        AX,l     Isensp  environmental  data 
■nov/        KErCHA,AX 
;test  for  equality  between  KEfCHA  and  o)C0l  (16-bit) 

■nov      5)  T  0  l  ,  l         ;presuPDose  equality 
tiov      AX, KEYCHA        ;fetch  KEYCHA 
AX,5)C01 
$  +  U 


;comDare  arguments 
;  end  rout  i  ne  if 


?  not  equa 1 ,  310  1  =  0 

; load  value  into 

; compare  to  zero 
7  j  umo  to  302  if 


cmo 
j  z 

t  rue 

tiov      i)T0  1  ,  0 
?  or anc  h  on  false 

■nov      Al,-DT01 

accumu 1  at  or 

cmo      AL ,  0 
jz       o)02 

f alse(=0) 

»assign  valje  of  one  variaole  to  another  variable 

(16-bit) 

•nov/       AX,iC01       ?  assign  a)C01 
tiov        MIMTAC^AX         ;tO  MINTAC 
5)02:       noD  :  define  location  5)02 

;test  for  equality  between  KEYCHA  and  5)C03  (lb-bit) 

■nov/      5)  T  0  1  ,  1         JoresuDDOse  equality 
■nov      AX, KEYCHA        ;  fetch  KEYCHA 
Cmo      AX,5)C03        ;comoare  arguments 
] 2  $  +  U  ; end  rout  i  ne  if 

t  rue 
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;not  equal*  i)  T  0  1  =  0 

} 1 oad  v  a  1 ue  into 

J  cotioare  to  zero 
J  j  u  m  p  to  1)  0  3  if 


■nov  i~)T01,0 
; or anc h  on  false 

■nov  ALfiTOl 
accumu  1  at  op 

Cm3  iLr 0 

J2  i)03 
fal se(=0) 

Jassiqn  value  of  one  variaole  to  another  variaole 
(16-bi  t ) 

mov  AX,a)C01       Jassiqn  i)C01 

tov  MMSGDS/AX         ;to  MMSGDS 

t)03:       nop  tdefine  location  n)0  3 
;test  for  equality  between  KEYCHA  and  5C04  (1b-oit) 

■nov  <5T01,1         ;presuoDose  equality 

■nov  AX, KEYCHA         Jfetch  KEYCHA 

AX, icoa 

$♦4 


Jcotioare  arguments 
; end  rout  i  ne  if 


?  not  eoual  ,  5)T0  1  =  0 

;load  value  into 

J  compare  to  zero 
fjumo  to  30^  if 


cmo 

J  2 

t  rue 

■nov  3T01,0 

'•  oranc  h    on    false 

tiov  AL,5)T01 

accumu 1  at  op 

Ciio  AL  ,  0 

]z  so  4 

fal se(=0) 

Jassign  value  of  one  variaole  to  another  variaole 
(  16-bi  t ) 

•nov       AX,i)C0  1        ;  assign  SCO  I 
■nov       M|_0CAT,AX         ;to  MLOCAT 
<304:       noo  :define  location  S04 

;test  for  equality  between  KEYCHA  and  i)C05  (16-oit) 

nov      ST01,1         ;oresuppose  equality 
nov       AX, KEYCHA         ; fetch  KEYCHA 
AX,5)C05 
$  +  4 


,'coiroare    arouTients 
Jend    routine    if 


.'not     equal,     i)T01     =    0 

Moad    value     into 

J  compa  re    to    zero 
?  j  ump     to     aJOS     if 


Cmo 
j  * 

t  rue 

•nov  3T01  ,  0 
; oranc h    on    false 

tiov  AL^TOl 
accumu 1  at  or 

cmo  AL , 0 

j  Z  *  0  5 
fal se(=0) 

Jassiqn  value  of  one  variaole  to  another  variaole 
(16-bi  t ) 

mov       AX,-3C01       Jassion  SC01 
■nov       MCL0CK,AX         ;to  MCLUCK 
a)05:       nop  :define  location  a) 05 

Jtest  for  equality  oetween  KEYCHA  and  SC06  (lb-oit) 

■nov  t)T01,1         Joresuooose  equality 

nov  AX/KEYCHA         ,*  fetch  KEYCHA 
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AX/3C06 

$♦4 


Jcomoare  arqunents 
len-j  routine  if 


o)T01  ,0 

AL,i)T01 

AL,0 
30  6 


;  not  equal  ,  a) TO  1  =  0 

;  1  o  id  value  into 

J  c  omoa  re  to  zero 
t  j  ump  to  5)06  if 


Cmo 
J  z 
t  rue 

mo  V 

; branch  on  false 

TlOV 

accumu  1  at  or 

CmO 

j  z 
f al seC=0) 

;assiqn  value  of  one  variable  to  another  variable 
(16-bi  t ) 

mov       A  X  ,  -DC  0  1       Jassiqn  o)C01 
mov       MLOGIN/AX        ;to  MLOGIN 
i)06:       noo  tdefine  location  3U6 

/assign  value  of  one  variable  to  another  variaole 
(16-bit) 

mov       A*,3)C02       Passion  i)C02 
mov        KEYINM,AX         Jto  KEYING 


Procedure  *IMAC 
^viINTAC:     noo 


J  entry  ooint  for 


WINTAC 


;  d  e  t  e  c  t  condition-type  input  ( 1 6 - b  i  t  ) 

in        A  X , 2     /Sense  environmental  data 
nov       KEYCHA,AX 


?  orocedure  IN  T AC 

5INTAC:     noo  Pentry  point  for 

INTAC 

Jassign  value  of  one  variable  to  another  variable 
(16-bi  t  ) 

■nov       AX,3C01       Jassiqn  t)C01 

nov       VENU/AX         ;to  ^ENU 
Isend  condi t i on-t yoe  output  (16-bit) 

■nov       AX,^ENU     ,'issue  control 

out        2/AX 
Jdetect  c ondi t i on-t yoe  inout  (16-bit) 

in        AX, 3     Jsense  environmental  data 

■nov       KEYCHA,AX 
;test  for  equality  between  KEYCHA  and  o)C0£  (lb-bit) 

mov      t)T01/1         /oresuooose  equality 

mo v      AX/KEYCHA        /'fetch  KEYCHA 
AX/i)C0? 

B  +  a 


t  rue 


cmo 
j  z 


/Comoare  arguments 
lend  routine  if 


mo  V 
;  branc  h  on  false 
nov 
accumu 1  at  or 

CltiD 


t)  T  0  l  ,  0 

AL/3T01 

AL/0 


;not  equal  /  i»T01  =  0 
/load  value  into 
?  compa  re  to  zero 
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j  z       j)07  Ijuno  to  a)07  if 
f alse(=0) 

7assign  value  of  one  variable  to  another  variaole 
(16-bit) 

nov       AXfl)C0  1  ?  assign  a)C  01 

nov       KEYINM,AX  ;to  KEYING 

i)07:       noo  :define  location  i07 
;test  for  equality  between  KEYCHA  and  a) C 0 1  (lb-oit) 

nov      i)T01,l  loresuoDose  equality 

nov      AX, KEYCHA  ;fetch  KEYCHA 
AX,  5>C0  1 

s  +  a 


Jcowoare  arqunents 
; end  routine  if 


;not  equal  ,  i)T0 1  =  0 

; 1 oad  value  into 

?  compare  to  zero 
}  j  umo  to  a)  0  8  if 


CTIO 

J  z 
t  rue 

tiov  t)T0  1  ,  0 

; oranc  h    on     false 

■nov  AL,t)T01 

accumu 1  at  or 

Cms  AL  ,  0 

jz  4)08 

fal se(=0) 

Jassian  valje  of  one  variaole  to  another  variable 
( 16-bi  t ) 

tiov       AX,o)C01       fassiqn  a)C01 
•nov        S^MANUrAX         ;to  S^MANU 
a)08:       noo  :define  location  508 

;test  for  equality  between  KEYCHA  and  o>C03  (16-bit) 

nov      <i)T01,l         f'oresuoDose  equality 
tiov      AX, KEYCHA        ;fetch  KEYCHA 
AX,3C03 

5  + a 


^compare  arguments 
; end  routine  if 


»*not  equal,  i)  T  0 1  =  0 

> 1 oad    value     into 

?  comoa  re    to    zero 
}  j  umD    to    r£i09     if 


Cmo 

j  Z 

t  rue 

nov      3T0  1  ,  0 
»  branc  h  on  false 

•nov      AL,?T01 
accumul ator 

cmo      AL  ,  0 
jz       109 
false(=0) 

Jassian  value  of  one  variable  to  another  variaole 
(16-bi  t) 

■nov       A*,}C01       ;assiqn  t)C01 
mov       SMAUT0,AX        ;to  SMAUTO 
5)09:       noo  rdefine  location  a) 09 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

mov       Ax,  SCO?       ;  ass  ion  i")C0P 
nov       MINTAC,AX         Jto  ^INTAC 


Procedure  SMMANU 
3SMMANU:      noo 


S^MANU 


;  en  try  ooint  for 
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; detect  condition-type  input  (lb-nit) 

in        AX, 4     Jsense  environmental  data 
■nov        KEYCHA,AX 


procedure  "1 A  M  U  A  L 
^MANUAL.:     noo 


; en  try  point  for 


UANJAl 


;test  if  ACO  not  equal  3C02  then  3T01  =  1  f  1 6-oi  t ) 


-3T  0  1  ,  1 


, Dresupoose 


710V 

i  nequa 1  i  t  y 

•nov 

cmo 

j  ne 
t  rue 

■nov 
; oranc  h  on  false 

■nov 
accumu  1  at  or 

C  T1  O 

j  Z 

f alse(=0) 

Jassiqn  valje  of  one  variaole  to  another  variable 
(16-bit) 

■nov       AX,3C02       ;assign  a)C02 

Tiov       POLL, AX        ;to  POLL 

; send  condi t i on-t yDe  output  (16-bit) 

nov       AX/POLL     tissue  control 

out       4, AX 
310:       noo  rdefine  location  310 

;test  if  AC  1  not  equal  3C02  then  3T01  =  1  (16-bit) 


AX,  ACO 
AX,3C02 
S  +  q 

DT01  ,0 

AL,3T01 

AL,0 
31  0 


,*  fetch  ACO 
/Compare  arguments 
;  end  routine  if 

Jequal,  3  T  0  1  =  0 

/load  value  into 

; comoa  re  to  zero 
; j  umo  to  310  if 


3  T  0  1  ,  1 


; presuPDOse 


■nov 
i  nequal i  t  y 

■nov 

C  mo 

j  ne 
true 

■nov 
; oranc  h  on  false 

TIOV 

accumu 1  at  or 

Cmo 

j  z 
f alse(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bi  t  ) 

■nov       AX,3C01        /'assign  3C01 

mov       POLL, AX        ;to  POLL 
;send  condition-type  output  (16-bit) 

tiov       AX, POLL     Jissue  control 

out       6,  AX 
311:       nop  :define  location  311 


AX,  AC  1 

AX,3C02 

s  +  a 

o)T01  ,0 

AL,3T01 

AL,0 
31  1 


;  f  e  t  c  h  A  C  1 
^compare  arquments 
; end  routine  if 

; equal ,  3T01  =  0 

; 1 oad  value  into 

; compa  re  to  zero 
/jump  to  311  if 
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;test  if  AC?  -tot  eaual  SCO?  then  5)T  0 1  =  1  (16-bit) 


ST01 , 1 


; Dresuppose 


mov 

i  nequa 1  i  t  y 

TlOV 

Cmo 
j  ne 
t  rue 

mov 
t or  anc  h  on  false 

710V 

accumul at  or 

CmO 

j  z 
fal se(=0) 

?assiqn  value  of  one  variaole  to  another  variaDle 
(16-bit) 

-nov       AX,SC03       ;assiqn  3C03 

nov       POLL, AX        ;to  POLL 
;send  condition-tyoe  outout  (16-bit) 

mov       AX, POLL     J  issue  control 

out       8, AX 
SI?:       noo  rdefine  location  S  1 ? 

;test  if  AC3  not  equal  SCO?  then  a)T01  =  1  (16-bit) 


AX,  AC? 
AX, SCO? 

$♦  a 

ST  0  1  ,0 

AL/ST01 

AL,0 
SI? 


;  f  e  t  c  h  AC? 
/Compare  arguments 
;  end  routine  if 

/'equal  ,     ST  01  =  0 

; 1 oad  value  into 

; compa  re  to  zero 
Jjumo  to  SI?  if 


DT01,  1 


; oresuDnose 


AX, flC3 
AX, SCO? 

5  +  a 

ST01  ,0 

AL,ST0  1 

AL,0 
S13 


;  f  e  t  c  h  A  C  3 
^compare  arqunents 
;  end  routine  if 

Jequal /  ST01  =  0 

? 1 oad  value  into 

; compa  re  to  zero 
/junto  to  S13  if 


■nov 
i  neaua 1 i  t  y 

nov 

cmo 

j  n  e 
t  rue 

■nov 
Joranch  on  false 

■nov 
accumu 1  at  or 

cmo 

i  z 
f alse(=0) 

Jassiqn  value  of  one  variaole  to  another  variable 
(16-bit) 

nov        AX,SC0U        lassiqn  SCOa 
mov       POLL, AX         ;to  POLL 
;send  condition-type  outDut  (16-bit) 

mov       Ax, POLL     ; issue  control 
out       10, AX 
S13:       nop  :def  ine  location  iH 

/test  if  ACa  not  equal  SCO?  then  ST01  =  1  (16-oit) 
mov      ST01/1         ;oresuPDOse 
i  nequa 1 i  t  y 

mov      AX,  AC 4        /'fetch  ACa 
cmo      AX, SCO?        Jcompare  arguments 
jne      J+U  ?end  routine  if 

t  rue 
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;eaual ,  3T01  =  0 

;  1  oad  value  into 

} compa  re  to  zero 
;  j  u  m  d  to  alii  if 


nov  ^TO  1,0 
; oranc  h  on  false 

nov  A|_  ,  d)T0  1 
ace  umu 1  ator 

cmo  AL,0 

\z  ill  a 
f 31se(=0) 

Jassign  value  of  one  variaDle  to  another  variable 
( 16-bi  t  ) 

tov  AX,i)C05       Jassign  1>C05 

-nov  POLL, AX        ;to  POLL 
;send  condi t i on-t yoe  outout  (16-bit) 

nov  AX, POLL     Jissue  control 

out  12, AX 

a)  1  4  :       noo  :define  location  nll^ 

;test  if  AC5  not  equal  i)C02  then  3T01  =  1  (16-bit) 


3T01  , 1 


; oresuDDOse 


no  v 
i  nequa 1  i  t  y 

•nov 
C  mo 
j  ne 
t  rue 

■nov 
; o  r anc  h  on  false 
•nov 
accumu 1  at  or 

cmo 
i  z 
false(=0) 

Jassign  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

•nov       A  X  ,  a)  C  0  6       iassign  i)  C  0  6 
nov       POLL, AX        ;to  POLL 
Jsend  condition-tyDe  outout  (16-bit) 

nov       AX, POLL     tissue  control 
out       14, AX 
315:       noo  :define  location  tIIS 

Jtest  if  AC6  not  eaual  3C02  then  3T01  =  1  (16-bit) 


AX, ACS 
AX,  a)C02 

i)T01  ,0 

AL,3T01 

AL,0 
315 


,*  f  e  t  c  h  A  C  5 
Jcompare  arguments 
; end  routine  if 

;equa1  ,  t)T01  =  0 

; 1 oad  value  into 

$  compare  to  zero 
;jumo  to  a)  15  if 


nov      3T0  1  ,  1 

i  nequa 1 i  t  y 

nov      AX  ,  AC6 
cmo      AX,3C02 
j  n  e      %  +  d 

t  rue 

nov       i>  T  0  I  ,  0 
; oranc  h  on  false 

nov      AL,cDT01 

accunu 1  at  or 

cmo       AL  ,  0 
)  z  j)  1  b 

f al se(=0) 


J oresuooose 

J  f  e  t  c  h  A  C  to 
JcomDare  arguments 
;end  routine  if 

,*  eaual  ,  ST  01  =  0 

; 1 oan  value  into 

?  compa  re  to  zero 
?  j  u  m  o  to  n>16  if 


93 


Jassign  value  of  one  variaole  to  another  variable 
C 16-bi t  ) 

Tiov       Ax,3C07       Jassiqn  -i)C07 

nov       POLL, AX         ;to  POLL 
;send  condition-tyoe  outDut  (lb-bit) 

■nov       AX, POLL     »*  issue  control 

out       lb, AX 
•316:       noo  :define  location  allb 

;test  if  AC7  not  equal  5)C02  then  cdTOl  =  1  (16-bit) 


3T01 ,1 


; oresuDDose 


TIOV 

i  nequal i  t  y 

■no  v 

cm: 
j  ne 
t  rue 

TIOV 

J  or anc  h    on    false 

TIOV 

accuTiu  1  at  or 

CTI  3 
j  2 

f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bit) 

■nov        AX,?C08        Jassiqn  a)C08 
t-ov       POLL, AX         ;to  POLL 

Jsend  condition-tyoe  outDut  (16-bi t) 

tiov       AX, POLL     J  issue  control 
out       18, AX 
o)17:       noo  :define  location  a)  1 7 

Jtest  if  AC9  not  equal  5C02  then  a)T01  =  1  (16-oit) 


AX,  AC7 
AX,i)CO? 

t;  +  u 

3T01  ,0 

AL,4)T01 

AL,0 
317 


,*  f  e  t  c  h    A  C  7 
Jconrioare    arguments 
J  end    rout  i  ne    if 

J  equal  ,     i")T0  1     =    0 

J  1 oad  value  into 

J  comoare  to  zero 
J  j  ump  to  a)  1  7  if 


iUOI  ,  1 


J  oresuooose 


TIOV 

i  nequal i  t  y 

TIOV 

C  mo 
j  ne 
t  rue 

TIOV 

; Or anc  h    on    false 

TIOV 

accumul at  or 

c  Tl  o 

j  z 
f a1se(=0) 

Jassiqn  value  of  one  variaole  to  another  variaole 
(16-bit) 

tiov  AX,i)C09  Jassign  uC09 

tiov  POLL, AX  ;to  POLL 

Jsend  condition-tyoe  output  (16-bit) 

■nov  AX, POLL  J  i  ssue  control 

out  ?0,AX 


AX,  ACS 
AX,3C02 

S  +  a 

t)T01  ,0 

AL,-f)T01 

AL,0 
fllB 


;  f  e  t  c  h  ACS 

JcoTiDare    arguiients 
J  end    routine    if 

J  equal  ,     aUOl    =    0 

J  1 oad  value  into 

t compare  to  zero 
J  j  UTip  to  n)lB  if 
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t)  1 8 :       odd  /define  location  a)  1 B 

/test  if  AC9  not  equal  3C02  then  3T01  =  1  (16-bit) 


a  T  o  l ,  i 


lore suDDose 


AX,  AC9 
AX,3C02 
$  +  a 

5)  T  0  1  ,  0 

AL,3T01 

Al,0 
319 


/fetch  AC9 
Jcofloare  arguments 
; end  routine  if 

/equal ,  3T01  =  0 

; 1 oad  value  into 

/ coTpa  re  to  zero 
/  j  umo  to  319  if 


no  v 
i  nequa 1 i  t  y 

710  V 

j  ne 
t  rue 

TlOV/ 

/  or anc  h  on  false 

710  V 

ace  umu 1  at  or 

ctio 
j  z 
f alse(=0) 

Jassign  value  of  one  variaole  to  another  variable 
(16-bit  ) 

Tiov       AX,3C10        ;assion  AC  1  0 
tov       POLL, AX         ;to  POLL 
;send  condi t i on-t yDe  outDut  (16-bit) 

■nov       AX, POLL     ;issue  control 
out        22, AX 
319:        noo  :define  location  319 

/assign  value  of  one  variable  to  another  variaole 
(16-bit) 

Tiov  AX,3C02  /assign    3C 0  2 

Tiov  S^MANU,AX  ;to    SMMANU 


,'orocedure  SMAUTO 
3SMAUT0:     noo 


/entry  ooint  for 


SMAUTO 


/detect  condi t i on-t yoe  incut  (16-bit) 

in        AX, 5     /sense  environmental  data 

tiov  KEYCHA,AX 

, 

/orocedure  AUTO 

3AUT0:      noD  /entry  ooint  for 

AJTO 

/assign  value  of  one  variaole  to  another  variable 
(16-bit) 

tiov       A  X  ,  3  C  0  5       /assign  3 C03 

tiov       ^E*JJ,AX         ;to  MENU 
/send  condition-tyDe  outout  (16-bit) 

tiov       AX, MEN  J     /issue  control 

out       2a, AX 
/detect  condi t i on-t yDe  incut  (16-bit) 

in         AX, 6     /sense  environmental  data 

tiov       KEYCHA, AX 
/test  for  equality  between  KEYCHA  and  3C02  (16-bit) 

tiov  3T01,1  /DresuDDose    eauality 

tiov  AX, KEYCHA  /fetch    KEYCHA 
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Jcompare  arguments 
;  end  routine  if 

/'not  equal*  a)  T  0 1  =  0 

?  1  oad  value  into 

; comoare  to  zero 
?  j  umo  t  o  a)20  i  f 


cmo      AX,5)C02 
jz      $*a 
t  rue 

nov       5>T  0  1  ,  0 
;  oranch  on  false 

nov       AL,iT0  1 
accumu 1  at  or 

cmo      AL  ,  0 
jz       32  0 
f alse(=0) 

;assiqn  valje  of  one  variable  to  another  variable 
(16-bi  t ) 

-nov       AX,JC01       ,'assiqn  3C01 
nov        KEYING, AX         ;tO  KEYINM 
(320:       noo  :define  location  i)2  0 

;test  for  equality  between  KEYCHA  and  <i)C0  1  (16-oit) 

mov      adT01,l         roresuooose  equality 
mov       AX, KEYCHA         ;  fetch  KEYCHA 
AX,  3C01 


;comoare  arguments 
Jend  routine  if 


?not  equal  ,  i)T0  1  =  0 

; 1 oad  value  into 

; comoare  to  zero 
;  j  u  m  d  to  a)  2  1  if 


Cmo 
j  Z 

t  rue 

nov      t)T01  ,  0 
;  or anc  h  on  false 

mov      AL, 3T01 
accumu lator 

cmo      AL  , 0 
jz       321 
f alse(=0) 

?assiqn  valje  of  one  variable  to  another  variable 
(16-bi  t) 

mov       AX,i)Cll       lassian  i)C  1  1 
mov       I^TPEP,AX        ;to  IMTPER 
a)21:       noo  :define  location  321 

;test  for  equality  between  KEYCHA  and  3C03  (16-oit) 

mov      d)T01,l         ;oresuDDose  equality 
mov       AX, KEYCHA         ; fetch  KEYCHA 
A  <,  ilC  0  3 


;comoare  arguments 
fend  routine  if 


Cmo 

j  z 
t  rue 

mov      -DT01  ,  0 
; Oranch  on  false 

mov       AL,3T01 
accumu 1  at  or 

cmo      AL , 0 

jz       322 
f alse(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bit  ) 

mov       AX,i)C12       Jassign  3C12 

mov        INTPER,AX         ;to  INTPER 
a)22:       noo  :define  location  <i)22 


,*not  equal  ,  o)T0  1  =  0 

? 1 oad  value  into 

;  comoare  to  zero 
;jump  to  5122  if 
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;test  for  equality  between  KEYCHA  and  3C04  (16-oit) 


3T01  ,  0 

AL,3T01 

AL,0 
323 


no  v      3T  0  1  ,  1 

nov       AX, KEYCHA 
CmO       AX,3C04 
jz        $  +  4 
t  rue 

•no  v 
Joranch  on  false 

710  V 

accumu 1  at  or 

cno 
J  z 
f al se(=0) 

;  a  s  s  i  q  n  value  of  one  variaole  to  another  variaole 
(16-bit) 

nov       AX,3C13       ;assiqn  3C  1  3 
nov       INTPER,AX        ;to  INTPER 
5)23:       noo  :define  location  323 

;test  for  equality  between  KEYCHA  and  3C05  (lb-oit) 

nov      a) T 0 1  /  1         iDresuopose  equality 
■nov      AX, KEYCHA        ;fetch  KEYCHA 
AX,3C05 
$♦4 


?oresuDDose  equality 

rfetch  KEYCHA 
fcomoare  arquments 

; end  rout  ine  if 

;  not  equa  1  ,     310  1  =  0 

?load  value  into 

?  coTioa  re  to  zero 
J  j  umo  to  323  if 


;comoare  arqunents 
lend  routine  if 


Jnot  equal  ,     a)  T  0 1  =  0 

; 1 oad  value  into 

$  comca  re  to  zero 
J  j  umo  t  o  324  i  f 


j  z 
t  rue 

■nov      3T01,0 
}  oranc h  on  false 

nov      AL,  3T0 1 
accumu 1  at  or 

CmD       AL  t 0 

jz      32a 
f al se(=0) 

^assign  value  of  one  variable  to  another  variaole 
( 16-bi  t ) 

nov       AX,3C14       ? assign  3C14 
nov       I\ITPER,AX        ;to  IMTPER 
32  '4  :       noo  tdefine  location  324 

;test  for  equality  between  KEYCHA  and  3C06  (16-bit) 

nov      3T01,1         JoresuoDose  equal  i  t  v 
nov       AX, KEYCHA         ; fetch  KEYCHA 
AX,3C06 
S  +  4 


Jcomoare  arqunents 
J  end  routine  if 


cmo 

j  z 
t  rue 

nov      3T01,0 
; oranc  h  on  false 

nov      AL,3T01 
accumu 1  at  or 

cmo       AL  ,  0 
jz       32S 
f al se(=0) 

/'assign    value    of    one    variaole    to    another    variable 
(16-bit) 


; not  equal ,     3T0 1  =  0 

;load  value  into 

J  conpa  re  to  zero 
?  j  umo  t  o  325  i  f 
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■nov  AX,5)C06       ;assign  3C06 

t,ov  IMTPER,AX        ;to  INTPER 
i)  2  5 :       noD  rdefine  location, -D  25 

;test  for  equality  between  KEYCHA  and  3C07  (lb-bit) 


JoresuoDose  eauality 

;fetch  KEYCHA 
Jcomoare  arqunents 

/'end  routine  if 

; not  equal,  3T01  =  0 

; 1 oad  value  into 

; comoa re  to  zero 
i  j  umD  t  o  a)26  i  f 


nov  a)T  0  1  ,  1 

nov  AX,  KEYCHA 

cmo  AX,3C07 

jz  $  +  4 

t  rue 

■nov  51 T 0  1  ,  0 
; or anc  h  on  false 

nov  ALrSlTOl 
accumu 1  at  or 

cmo  AL,  0 

jz  326 
f  a  1 se(=0) 

rassiqn  value  of  one  variable  to  another  variaole 
(16-bi  t  ) 

■nov  AX,i)C0l       Jassian  DCOl 

nov  IMTPER,AX        ;to  INTPER 

5)26:       noD  tdefine  location  5)26 

Jassiqn  value  of  one  variaole  to  another  variaole 
(lfe-bi t  ) 

nov  AX, CLOCK       Jassign  CLOCK 

•nov  INTHM,AX        Jto  IMTTIM 

;assiqn  valje  of  one  variaole  to  another  variable 
( 16-bi t  ) 

nov  AX,5)C02       ;assiqn  i)C02 

•nov  SMAJT0,AX         ,*tO  SMAUTO 

Jassign  valje  of  one  variable  to  another  variable 
(16-bi  t  ) 

■nov  AX,t)C01        Jassiqn  t)C  0  1 

nov  TPOLL/AX        ;to  TPOLL 


;orocedure  TP3LL 

5)TP0LL:     noo  r'entry  Doint  for 
T»0LL 

Subtract  16-oit  CLOCK  -  TMT  T  I  ^  =  9  T  0  1 

nov  AX, CLOCK        Metch  subtrahend 

Suo  AX/INTTI*        ;fecth  and  subtract 
mi  nuend 

nov  5)  T  0  1  ,  A  X        Jstore  answer  in  1)  T  0  1 
?test  if  STOlgreater  than  IMTPER  then  <i  T  0 1  =  l 
(16-bi t  ) 

nov  x) T 0  l  r  I         ?Dresuooose  a  r  q  l  > 
arq2 

nov  AX,-DT01        ;  fetch  cDT  0 1 

cno  AX,IMTPFR        Jcomoare  arquments 

jq  ?  +  '-!               /'end  routine  if 
t  rue 

nov  t)T01,0          /not  >  /  5)T01  =  0 
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;  1 oad  value  into 

I  compare  to  zero 
\  j  umo  t  o  <t)27  i  f 


; Dranc h  on  false 

mov       AL,3T01 
ace  umu  1  at  or 

Cmo       AL  ,  0 

f al se(=0) 

;assign  value  of  one  variable  to  another  variable 
(  16-bi  t ) 

mov       AX,3C01        fassign  3C01 
mov       T?0LL,AX        ;to  TPOLL 
t)27:        noD  :define  location  327 


Procedure  D0LLAU 
3?0LLAU:      noD 


;  en  try  point  for 


PDLLAU 


;test  if  ACO  not  equal  3C0?  then  3T01  =  1  (16-bit) 


a)  T  0  1  ,  1 


; oresuDDOse 


•nov 
i  nequal  i  t  y 

TO  v 

cmo 

j  ne 
t  rue 

■nov 
;  oranch  on  false 

■nov 
accumul at  or 

CTlO 
j  Z 

f alse(=0) 

'assign  value  of  one  variable  to  another  variable 
(16-bi  t ) 

■nov       AX,a>C02       fassign  cDC02 

■nov       POLL, AX         ;to  POLL 

;send  condit ion-tyDe  outDut  (16-bit) 

■nov       AX, POLL     7  issue  control 

out        26, AX 
328:       noo  :define  location  328 

;test  if  AC1  not  equal  3C02  then  3T01  =  1  (16-oit) 


AX, ACO 

AX,3C02 

$  +  '4 

3T01 ,0 

A  L  ,  3  T  0  1 

AL,0 
32B 


; f  e  t  c  h  ACO 
^compare  arguments 
; end  rout  i  ne  if 

Jequal ,  3T0 1  =  0 

J  1 oad  value  into 

?  compa  re  to  zero 
rjumo  to  328  if 


■nov  3T0  1  ,  1 

i  nequal  i  t  y 

•nov  A  X , AC  1 

Cmo  AX,3C02 

j  ne  $  +  a 

t  rue 

mov  3T01,0 
»'oranch  on  false 

mov  AL,3T01 

accumu 1  at  or 

cmo  AL  ,  0 

jz  329 

f al se(=0) 


; presuppose 

; fetch  AC1 
;comoare  arguments 
; end  rout  i  ne  if 

;egual ,  3T01  =  0 

; 1 oad  value  into 

J  compare  to  zero 
Jjumo  to  329  if 
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fassign  value  of  one  variable  to  another  variable 
(16-bit) 

tiov       AX,cDC01       ?assiqn  3C01 

nov       POLL, AX        ;to  POLL 
;send  condi t i on-t yoe  output  (16-bit) 

to*/       AX, POLL     I  issue  control 

out       28, AX 
o)29:       nop  tdefine  location  t)29 

;test  if  AC?  not  equal  i)C02  then  rDTOl  =  1  (16-bit) 


3T01 ,  1 


; Dresupoose 


tiov 
i  nequa 1 i  t  y 

710V 
CTO 

j  ne 
t  rue 

•no  v 
; oranch    on    false 
■nov 
a:c umu 1  at  or 

c  mo 
j  z 
fal se(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bi  t) 

■nov       AX,iC03       ?assign  a)C03 
nov       POLL, AV         ;to  POLL 
Jsend  condi t i on-t ype  outout  (lb-bit) 

Ttov       AX, POLL     »  issue  control 
out       30, AX 
a)  3  0 :       noo  rdefine  location  i!30 

,*test  if  AC3  not  equal  5C02  then  a)T01  =  1  (16-bit) 


AX, AC2 
AX,^C02 
if  a 

5T01  ,0 

AL,5)T0  1 

AL,0 
930 


;  f  e  t  c  h  A  C  2 
Jcompare  arguments 
; end  rout  i  ne  if 

,*equal  ,  -DT01  =  0 

; 1 oad  value  into 

; comoa  re  to  zero 
',  j  umo  to  o)30  if 


3T01, 1 


; oresuooose 


■nov 
i  nequa 1  i  t  y 

■nov 
Cmo 
j  n  a 
t  rue 

TIOV 

; oranc  h    on    false 

TlOV 

accumu 1  at  or 

cmo 

j  z 
fal se(=0) 

;assign    value    of    one    variable    to    another    var iaole 
(  16-bit) 

mov  AX,cdC04  Jassign    n)C04 

tiov  POLL, AX  ;to    POLL 

? send    condi t i on-t yoe    output     (16-bit) 

mov       AX, POLL     ;issue  control 

out       12, AX 


AX, AC3 
AX,rDC02 

$  +  a 

d)T01  ,0 

AL,9T01 

AL,0 
331 


;  fetch  AC3 
;comoare  arguments 
Jend  routine  if 

,*  equal  ,  i)T01  =  0 

; 1 oad  value  into 

; compare  to  zero 
',  j  umo  to  <53l  if 
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931:       noo  Zdefine  location  931 

;test  if  AC4  -<ot  equal  9C02  then  9T01  =  1  (16-bit) 


9T01,  1 


?  oresuoDose 


•no  v 
inequality 

•no  v 

Cnno 

j  n  e 
t  rue 

n©  V 

;  oranch  on  false 
no  v 
accumu  1  at  op 

Cno 
j  Z 

f al se(=0) 

Jassian  value  of  one  variaole  to  another  variable 
(16-bi  t ) 

tiov       AX,9C05       Jassign  9C05 

nov       POLL, AX        ;to  POLL 

;send  condi t i on-t yoe  outout  (15-bit) 

nov       AX, POLL     ;issue  control 

out       3a, AX 
5)3?:       noD  Idefine  location  ii? 

Jtest  if  AC5  not  equal  dC02  then  9T01  =  1  (16-bit) 


AX,  AC4 
AX,9C02 

?  +  a 

9  T  0  1  ,  0 

AL, 3T01 

AL,0 
1)32 


,*  f  e  t  c  h  A  C  a 
Jcomoare  araunents 
;end  routine  if 

Jequal ,  9T01  =  0 

J  1 oad  value  into 

7  compare  to  zero 
J  j  umD  to  332  if 


9 T  0  1  ,  1 


;  oresuPDose 


AX, ACS 
AX,9C02 
$  +  «l 

9T0  1  ,0 

AL,3T01 

AL,0 
933 


;  f  e  t  c  h  A  C  5 
Jconoare  arquments 
; end  rout  i  ne  if 

,*  eaual  ,  9T0  1  =  0 

; 1 oad  value  into 

; comoa re  to  zero 
?  j  umo  to  933  if 


nOV 

i  nequa 1  i  t  y 

nov 

Cmo 

j  ne 
t  rue 

nov 
',  or anc  h  on  false 

•nov 
accumu 1  at  or 

j  z 
f  a  1  s  e  (  =  0  ) 

Jassiqn  value  of  one  variaole  to  another  variaole 
(16-bi  t  ) 

•nov  AX,9C06  ?assign  9C06 

nov  POLL, AX  ;to  POLL 

;send  condi t i on-t yoe  outout  (16-bit) 

■nov  A*, POLL  Mssue  control 

out  36, AX 

933:       noo  :define  location  933 

Jtest  if  AC6  not  equal  9C0?  then  9T01  =  1  (16-bit) 

•nov  9T01,1  ;oresuopose 
i  nequa 1  i  t  y 

nov  AX,AC6  ;fetch  AC6 

cno  AX, 9 C02  Jconpare  arqunents 

jne  $+4  Jenri  routine  if 
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3T01,0 
A  L  /  a  T  0  1 
AL/O 

934 


/'equal  /  9T0  1  =  0 

J  load  value  into 

;  comDare  to  zero 
Jjumo  to  93  4  if 


t  rue 

TlOV 

»  branc  h    on    false 
710  v 
ace  umu 1  at  or 

CUD 

i  z 
false(=0) 

;assign  value  of  one  variable  to  another  variable 
( 16-bi  t ) 

■nov       AX,9C07       lassiqn  i)C07 

nov       POLL, AX        ;to  POLL 
/Send  condi t i on-t yDe  outout  (16-bit) 

Tiov  AX,POLL  »'issue    control 

out        38, AX 
934:       noD  :define  location  934 

/'test  if  AC7  not  eaual  SCO?  then  9T01  =  1  (16-bit) 


9T01  ,  1 


; oresuODOSe 


no  v 
inequality 

•nov 

enno 

j  n  e 
t  rue 

710  V 

; or anc  h    on    false 

■nov 
accumu 1  at  or 

c  no 

j  z 
false(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bit) 

nov       AX,9C08       Jassiqn  9C08 

nov       POLL/AX        ,*to  POLL 
/Send  condition-type  outout  (16-bit) 

nov       AX/POLL     /issue  control 

out       aO,AX 
935:       noo  :define  location  935 

;test  if  AC8  not  equal  9C02  then  i)T 0 1  =  1  (16-bit) 


AX, AC7 
AX,9C02 
$  +  4 

ST01 ,0 

AL/iTOl 

AL/O 
9  35 


;fetch  AC7 
/comDare  arguments 
;end  routine  if 

,'equal  /  a)T01  =  0 

; 1 oad  value  into 

;  compa  re  to  zero 
/  j  unp  to  935  if 


nov  9T01/1 

i  nequal i  t  y 

nov  AX,AC8 

cmo  AX,9C02 

j  n  e  $  ♦  4 

t  rue 

•nov  9T01  ,  0 
; oranc  h    on    false 

Tiov  AL/3T01 

accunu 1  at  or 

cmo  AL/O 

j  z  936 


; oresuPDose 

/•fetch    A  C  8 
/compare    arqunents 
; end    rout  i  ne    if 

;  equal  /     alTOl     =    0 

; 1 oad  value  into 

;  comoare  to  zero 
?  j  umD  to  5)36  if 
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fal se(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

nov  AX,3C09        ;assiqn  3C09 

nov  POLL, AX         ;to  POLL 

; send  conji tion-tyoe  outout  (lb-bit) 

nov  AX, POLL     ;issue  control 

out  42, ax 
<i)36:       noo                      rdefine  location  i)3b 

;test  if  AC9  not  equal  3~)C02  then  <i)T01  =  1  (16-bit) 


3T01  ,  1 


; DresuDoose 


AX,  AC9 
AX,dC02 

$  +  a 
a  t  o  i  ,  o 

AL,  oDTOl 

AL,0 
337 


;  f  e  t  c  h  A  C  9 
Jcompare  arguments 
; end  routine  if 

;eaual ,  5T01  =  0 

i  1  oad    value    into 

;  compare    to    zero 
;  j  uoid    to    a)  17     if 


nov 
i  neaua 1 i  t  y 

TIO  V 

cm  o 
j  ne 
t  rue 

TIO  V 

; branc  h    on    false 
-nov 
acc  umu 1  at  op 

cmo 

j  Z 

false(=0) 

;assian  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

■nov  AX,i)C10  ;assiqn  a)C  1  0 

nov  POLL, AX  ;to  POLL 
?send  condi t i on-t yoe  outout  (16-bit) 

■nov  Ax, POLL  J  issue  control 

out  44, AX 

a)37:       noD  :define  location  i)37 

;assign  valje  of  one  variable  to  another  variable 
(16-bit) 

■nov  AX,3C02  ?assiqn  9C02 

■nov  T°0LL,AX  ,'to  TPOLL 


procedure  MMSGDS 
5MMSG0S:     noD 


entry  ooint  for 


M\iSGDS 


;detect  condi t i on-t yDe  inout  (16-oit) 

in        AX, 7     ?sense  environmental  data 

•nov        KEYCHA,AX 
, 

Procedure  MS30SP 

3MS6DSP:     noo  ;entry  point  for 

M5GDSP 

Jassiqn  value  of  one  variaole  to  another  variable 
( 16-bi  t  ) 

■nov       AX,MSG0       ;assiqn  MSGO 

nov       MSGVDT,AX        ;to  MSGVDT 
»  send  condi t i on-t yoe  outout  (16-bit) 
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tiov       AX, MSGVDT     Jissue  control 

out       46, AX 
Jassign  value  of  one  variable  to  another  variable 
( 16-bi t ) 

•nov       AX,MSG1       Jassian  MSG1 

tiov       MSGVDT, AX         ;to  MSGVDT 
Jsend  condi t i on-t yDe  outDut  (lb-bit) 

■nov       Ax, MSGVDT     ;issue  control 

out       48, AX 
Jassiqn  value  of  one  variable  to  another  variable 
( 16-bi  t ) 

*ov       AX,MSG2       Jassiqn  MSG2 

tiov       MSGVDT, AX        ;to  MSGVDT 
;send  condition-type  outout  (16-bit) 

■nov       AX, MSGVDT     r'issue  control 

out       50, AX 
Jassiqn  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

tiov  AX,MSG3  Jassiqn    MSG3 

■nov       MSGVDT, AX        Jto  MSGvDT 
jsend  condi tion-tyoe  outout  (16-bit) 

•nov       AX, MSGVDT     Jissue  control 

out       52, AX 
Jassiqn  value  of  one  variable  to  another  variable 
(16-bi  t  ) 

■nov       AX,MSG4       Jassiqn  MSG4 

•nov       MSGVDT, AX        Jto  MSGVDT 
Jsend  cond i t i on-t yDe  outout  (16-bit) 

tiov       AX,^SGVDT     Jissue  control 

out       5a, AX 
Jassiqn  value  o^    one  variaole  to  another  variaole 
( 16-bi t ) 

nov       AX,MSG5       Jassiqn  MSG5 

tiov       MSGVDT, AX        Jto  MSGVDT 
Jsend  condi t i on-t yoe  output  (16-bit) 

■nov       AX, MSGVDT     Jissue  control 

out       56, AX 
Jassiqn  value  of  one  variaole  to  another  variaole 
(16-oi  t  ) 

■nov       AX,MSG6       Jassiqn  MSG6 

nov       MSGVDT, AX        Jto  MSGVDT 
Jsend  condition-type  outout  (16-bit) 

•nov       AX, MSGVDT     Jissue  control 

out       58, AX 
Jassiqn  value  of  one  variable  to  another  variable 
(16-bit) 

■nov       AX,wSG7       Jassiqn  MSG7 

tiov       MSGVDT, AX        Jto  MSGVDT 
Jsend  condition-type  outout  (16-bit) 

■nov       AX,^SGV0T     Jissue  control 

out       60, AX 
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Jassiqn  value  of  one  variable  to  another  variable 
(16-bi  t ) 

tiov       AX,MSG8       Jassiqn  MSG8 

tiov        MSGVDT,AX         ;to  MSGVDT 
Jsend  condi t i on-t yoe  outDut  (16-bit) 

■nov        Ax,MSGvDT      ;  issue  control 

out       62, AX 

Jassign  value  of  one  variable  to  another  variaole 
(16-bi  t  ) 

tiov        A<,MSG9        Jassiqn  MSG9 

tiov       MSGVDT, AX        ;to  MSGVDT 
f send  condition-tyDe  outDut  (16-bit) 

tiov       AX, MSGVDT     Jissue  control 

out        t>a,AX 

Jassiqn  value  of  one  variable  to  another  variable 
( 16-bi  t ) 

tiov       AX,3)C02       Jassiqn  a)C02 

nov       M^SGDS,AX         ;to  MMSGDS 


Jorocedure  ML3CAT 
3ML0CAT:      noo 


J  entry  point  for 


ULOCAT 


J  detect  c on d i t i on-t yoe  incut  (16-bit) 

in        AX, 8     Jsense  environmental  data 
■nov        KEYCHA,AX 


Jorocedure  LOCATI 

t)L0CATI:      noo  lentry  Doint  for 

LDCATI 

Jassign  value  of  one  variable  to  another  variable 
( 16-bi  t ) 

no^       AX,5)C04        Jassiqn  a)C04 

■nov        MENU, AX         Jto  MENU 
Jsend  condi t i on-t yDe  outDut  (16-bit) 

■nov       AX, MENU     I  issue  control 

out        66 , AX 
Jdetect  condition-tyoe  incut  (16-bit) 

in        AX, 9     Jsense  environmental  data 

tiov        KEYCHA,AX 
Jtest  for  equality  between  *EYCHA  and  o)C02  (16-oit) 

•nov      t)T01,1  JoresuDoose  equality 

■nov      AX,KEYCHA         ;  fetch  KEYCHA 
AX,9C02 

$  +  a 


cmo 

i  z 
t  rue 

■nov  5)T0  1  ,  0 

J oranc  h    on     false 

TIOV  A  L  ,  n)  T  0  1 

accumu 1  at  or 

cmo  A|_  ,  0 

jz  33  8 


Jcomoare  arquments 
J  end  routine  if 


J  not  equal  ,  i)T0 1  =  0 

J  1  o  a  d  value  into 

Jcomoare  to  zero 
JjumD  to  ol38  if 
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f  3 1 se(  =  0) 

Jassiqn  value  of  one  variable  to  another  variable 
C 16-bi  t  ) 

-nov       AX,n)C01       Jassign  5)C01 
•nov       KEYINM,AX         ;to  KEYING 
S)  3  8 :       noo  sdefine  location  ol^fi 

;test  for  eouality  between  KEYCHA  and  nDCOl  (lb-oit) 

nov      T>T01fl         ;oresuDDose  equality 
•nov       AX, KEYCHA         ;fetch  KEYCHA 
AX,3C01 
$♦'4 


Jcomoare  arqunents 
?  end  routine  if 


;not  equal t     iTOl  =  0 

; 1 oad  value  into 

?  compare  to  zero 
}  j  umo  to  339  if 


cmo 
J  z 
t  rue 

nov      3T01  ,  0 
; oranch  on  false 

■nov       AL,  3T0  1 
accumu 1  at  or 

cmo      AL  ,  0 
jz       339 
false(sO) 

Jassign  value  of  one  variaole  to  another  variaole 
( 16-bi  t ) 

nov       AX,3C01       Jassign  3C01 
nov       NE*P0S,AX        ;to  NErtPOS 
<i)39:       noo  rdefine  location  dD39 

;test  for  equality  between  KEYCHA  and  3C03  (lb-oit) 

■nov      D  T  0  1  ,  1         JoresuDoose  eauality 
nov      AX, KEYCHA        ;fetch  KEYCHA 
A  X  ,  a  C  0  3 
s  +  a 


Jcomoare  arguments 
; end  rout  i  ne  if 


Jnot  equal  ,  a)  TO  1  =  0 

; 1 oad    value    into 

J  connpa  re    to    zero 
J  j  umo    to    340     if 


cno 

j  z 

t  rue 

nov      3T01,0 
J oranc  h  on  false 

nov/      AL#3T01 
accumul at  or 

cno      AL,0 
jz       340 
f al se(=0) 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

nov       AX,3C02       Jassign  3C02 
nov       ^ErtP0S,AX        ;to  NElftPOS 
Jassign  value  of  one  variaole  to  another  variable 
( 16-bi  t ) 

nov       AX,a)C01       Jassign  i)C0l 
nov       TML0CA,AX         ;to  T^ILOCA 
3  U  0  :       noo  rdefine  location  TiiaO 

Jassign  value  of  one  variaole  to  another  variable 
( 16-bi  t  ) 

nov       AX,3C02       Jassign  i)C02 
nov       ML0CATfAX         Jto  ^LOCAT 
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»orocedure  TMLQCA 
3TML0CA:      noo 


Jen  try  Doint  for 


TMLQCA 


Jdetect  conii  t ion-tyDe  inout  (16-bit) 

in        Ax, 10     Jsense  environmental  data 
mov        KEYCHA,AX 

9 

Procedure  ^AMLOC 

S^AMLOC:      noo  Jentry  point  for 

MANLOC 

Jdetect  c ondi t i on-t yDe  incut  (16-bit) 

in         AX, 11      Jsense  environmental  data 
mov        MANP0S,AX 
Passiqn  value  of  one  variaole  to  another  variable 
( 16-bi  t ) 

mov        AX,MANP0S        Jassiqn  MANPOS 
mov       P0SITI,AX         ;to  POSITI 
Jassign  value  of  one  variable  to  another  variaole 
(16-bit) 

•nov       Ax,3C02       Jassign  i)C02 
■nov        TML0CA,AX         Jto  TMLOCA 


procedure  MCLOCK 
3MCL0CK:     odd 


? en  try  Doint  for 


MCLOCK 


Jdetect  c ondi t i on-t yoe  incut  (16-bit) 

in         AX, 12     /sense  environmental  data 
mov        KEYCHA,AX 

t 

Procedure  CLOCKS 

9CL0CKS:     noo  Jentry  ooint  for 

Clocks 

Jassian  value  of  one  variaole  to  another  variable 
(  16-bi  t ) 

mov  Ax,?C05                  Jassiqn    a>C05 

mov  MENU, AX         Jto  MENU 
isend  condition-tyoe  outDut  (16-bit) 

mov  A  X  ,  M  E  N  U     I  issue  control 

out  68, AX 
;detect  condition-type  inout  (16-bit) 

in  Ax, 13     Jsense  environmental  data 

mov  KEYCHA,AX 

Jassign  value  of  one  variaole  to  another  variaole 
(  16-bi  t ) 

mov  A  X  ,  a)  C  0  2       J  a  s  s  i  q  n  <i)  C  0  2 

mov  MCLOCK, AX         Jto  MCLOCK 


J  orocedure  ^LOGIN 
5ML0GIN:      noo 


J  entry  ooint  for 


MLOGIN 


Jdetect  condi t ion-tyoe  inout  (16-bit) 
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i  n 

TO  V 


AX/14     /sense  environmental  data 
KEYCHA, AX 


Jorocedure  LOSING* 

3L0GIN0:     noo  Jentry  ooint  for 

LDGINO 

Jassiqn  value  of  one  variable  to  another  variable 
( 16-bit ) 

•nov       Ax,i)C06       Jassian  d)C06 
mov       MENU, AX         ;to  MENU 
;send  condi tion-tyoe  outout  (16-bit) 

nov       AX, MENU     /'issue  control 
out       70, AX 
;detect  c on di t i on-t vDe  inout  (16-bit) 

in        AX, 15     /sense  environmental  data 
mov       KEYCHA, AX 
;test  for  equality  between  KEYCHA  and  3C02  (16-bit) 

nov      a)T01/l         JoresuDDose  equality 
■nov       AX, KEYCHA         /'fetch  KEYCHA 
AX,3C0? 
$  +  4 


C1)D 
J  Z 


/Compare  arquments 
;  end  routine  if 


t  rue 


9T01  ,0 

AL,ST01 


/'not  equal/  iTOl  =  0 
/ 1 oad  value  into 


AL/0 
o)ai 


/  c  ompare  to  zero 
/jump  to  n)^l  if 


nov 
; oranc h  on  false 
mow 
acc  umu 1  at  or 

C  mo 
J  Z 

f al se(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bit) 

mov       A  X  ,  a)  C  0  1       /assign  i)  C  0  1 
mov        KEYINM,AX         ; t o  KEYINM 
fDUl:       noo  :define  location  ai)41 

/'test  for  equality  between  KEYCHA  and  -3C0  1  (16-bit) 

mov      3T01,1         ;oresuppose  equality 
mov      AX, KEYCHA        /fetch  KEYCHA 
AX/SCOl 
i  +  a 


Pcomoare  arguments 
; end  routine  if 


cmo 

j  z 
t  rue 

mov      3T01 / 0 
J  Dranc h  on  false 

mov      AL/3T01 
accumu 1  at  or 

Cmo       AL  /  0 

jz       Wi 
f alse(=0) 

Jassiqn  valje  of  one  variable  to  another  variable 
( 16-bi  t  ) 

mov       AX,-DC01       /'assign  t)C01 

mov       TL0GIN,AX         ; t o  TLOGIM 


/not  equal/  i>T0  1  =  0 

? 1 oad  value  into 

; compare  to  zero 
/  j  umo  to  5)42  if 
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342:       noo  tdefine  location  a)42 

;test  for  equality  between  KEYCHA  and  a)C03  (lb-bit) 


nov  a)T  0  1  ,  1 

mov  AX,KEYCHA 

cm  AX,3C03 

j  z  S  +  a 
t  rue 

mov  3101,0 
Joranch  on  false 

■nov  AL^cDTOl 
accumu 1  at  op 

cmo  AL  ,  0 

jz  ii)4  3 
f al se(=0) 

Jassign  valje  of  one  variable  to  another  variable 
(16-bi  t  ) 

mov  AX,i)C01       Jassiqn  a)C01 

mov  TL3G0U,AX        ;to  TLOGOU 

i)  4  3 :       noo  :define  location  o)^3 

;  a  s  s  i  a  n  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

mov  AX,5)C02       lassiqn  o)C02 

■nov  M|_0GIN,AX         ;tO  MLOGIN 


Joresuooose  equality 

;  fetch  KEYCHA 
/comoare  arguments 

fend  routine  if 

Pnot  equal ,  ST 01  =  0 

; 1 oad  value  into 

; c  omoa  re  to  zero 
fjutio  to  a) ^ 3  if 


Jorocedure  TLDGIN 
rDTLOGIM:      noo 


Gentry  ooint  for 


TLOGIN 


;detect  c ondi t i on-t yoe  inout  (16-bit) 

in  AX, 16     r'sense  environmental  data 

-nov  KEYCHA, AX 

Procedure  L03IN 

fflLOGIN:     noo  Jentry  ooint  for 
LOGIN 

;assiqn  value  of  one  variable  to  another  variable 
( lb-bi  t ) 

■nov  AX,3C02       ;assign  ^CU? 

■nov  ACNUM,AX         ;t0  ACMUM 

Jdetect  condition-type  inout  (16-bit) 

in  AX, 17     {sense  environmental  data 

mov  ACNUM,AX 

;test  for  equality  between  \EXTAC  and  3C02  (16-bit) 

mov  3T01,1         JoresuoDose  equality 

■nov  AX,NEXTAC        ;fetch  NEXTAC 

cmo  AX,a)C02        JcomDare  arguments 

jz  $  ♦  '-J              ;end  routine  if 
t  rue 

mov  d)T01,0          ,'not  equal,  i)T01  =  0 

;test  for  equality  between  ACO  and  i")C02  (16-bit) 

mov  a)T02,l          Joresuooose  equality 

mov  AX, ACO        ;fetch  ACO 
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cmo 

J  Z 


AX,aC02 

s+a 


JcomDare  arauments 
Jend  routine  if 


t  rue 


AX,iH02 
3T01 ,  AX 

AL,5)T01 

AL,0 

a)aa 


J 1 oad  value  into 

; compare  to  zero 
;  j  umo  to  a)44  if 


mov      o)T02,0  Jnot  equal,  i)Tt)2  =  0 

Jlogical  and.  (16-bit)  3T01  .and.  -i»T02  =  3T01 

mov       AX,3T01 

and 

■no  v 
J  or anc  h  on  false 

mov 
accumul at  or 

CT1D 
j  Z 

f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bi  t  ) 

mov       AX,ACNilM       Jassiqn  ACNUM 
nov       A  C  0  ,  A  X         ;toAC0 

nD44:       nop  :define  location  a)44 

;test  for  equality  between  MEXTAC  and  5)C01  (lb-oit) 

mov  3T01/1         ;oresuDDOse  equality 

mov  AX,NEXTAC        ;fetch  NEXTAC 

Cmo  A  X  r  i)  C  0  1        t'comoare  arguments 

jz  S+U  Jend  routine  if 

t  rue 

mov  3T01,0         ;not  equal,  a)T01  =  0 

;test  for  equality  between  AC  1  and  o)C02  (16-bit) 

mov  3  T  0  2  ,  1         JoresuoDose  equality 

tiov  AX,AC1        ;  fetch  AC  1 

cnno  AXfi)C02        Jcomoare  arguments 

jz  5+^  Jend  routine  if 

t  rue 

mov  a>T02,0         Jnot  equal,  o)T02  =  0 

Jlogical  and.  (16-bit)  ST01  .and.  i)T02  =  i)T0l 

mov  AX,o)T01 
and 
mov 

J  oranc  h  on  false 
mov 
accumu 1  at  or 

Cmo 

j  z 
f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variaole 
( 16-bi  t ) 

mov  AX,ACNUM       Jassiqn  ACNIM 

mov  AC  1  , AX         J  to  AC  1 

i)45:       noo  tdefine  location  a)45 
Jtest  for  equality  between  MEXTAC  and  o)C03  (lt>-oit) 

mov  a)T01,l         Joresuopose  equality 

mov  Ax,NEXTAC        Jfetch  NEXT4C 


AX,3T02 
aHOl  ,  AX 

AL,o)T0  1 

AL,0 

i)45 


J  1 oad  value  into 

J  compare  to  zero 
J  j  ump  t  o  n)45  i  f 
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AX,3C03 

$  +  4 


JcoTipare  arqunents 
/end  routine  if 


t  rue 


nov      5)T0t,0         ;not  equal,  iTOl  =  0 
;test  for  equality  oetween  AC?  and  o)C0?  (16-bit) 


nov 
nov 
cno 

J  2 


i)T0?, 1 
AX,  AC? 
AX,o)C0? 
$  +  4 


Joresupoose  equality 
;fetch  AC? 
Jco^Dare  arqunents 
; end  routine  if 


t  rue 


AX,  SITO? 
^)T  0  1  ,  AX 

4  L  ,  S)  T  0  1 

AL,0 


; 1 oad    value    into 

>  c  onoa  re    to    zero 
?  j  unp    t  o    a)46    i  f 


nov  ^)T0?,0  ;not     equal,     a)T0?    =    0 

Moqical     and.     (16-bit)     ^T  0 1     .and.    n)T0?    =    n)T01 

nov  AX,-DT0  1 

an  i 

•nov 
; oranch  on  false 

■nov 
accunu 1  at  or 

C  m  o 

j  7 

f  al se(=0) 

Jassiqn  valje  of  one  variaole  to  another  variable 
( 16-bi  t  ) 

nov        AX,ACNU^  ;assiqn  ACNIH 

nov        AC?, AX  ;tO  AC? 

a)  4  6 :       noD  :define  location  a)46 
;test  for  equality  between  NEXTAC  and  d)C04  (16-oit) 

nov      d)T01,l  loresuooose  equality 

nov      AX,MEXTAC  ;fetch  MtXTAC 

cno      AX,3C04  ;connDare  arqunents 

)z                  $  +  4  ,end  routine  if 
t  rue 

nov      i)T01,0  ,*not  equal,  a)T01  =  0 
;test  for  equality  between  AC3  and  o)C0?  (16-bit) 

nov      a)T0?,l  Joresuooose  equality 

nov      AX,AC3  ; fetch  AC  3 

cno      AX,t)C0?  ;conoare  arqunents 

]  z                  $  ♦  4  lend  routine  if 
t  rue 

nov      a)T0?,0  ,'not  equal,  aHO?  =  0 
;logical  and.  (16-bit)  tD  T  0 1  .and.  a)T0?  =  a)T01 
nov      AX,3T01 
AX,«T0? 
-DT01  ,  AX 


and 
nov 
; or anc  h  on  false 
nov 
ace  unu 1  at  or 

C  no 
j  z 
f a1se(=0) 

;assiqn  value  of  one  variaole  to  another  variaole 


AL,.i)T0  1 

AL,0 
a)47 


;  1 oad  value  into 

J  comoa  re  to  ze  ro 
»  j  unp  to  347  if 


1  1  1 


(16-bit) 

mov 

TIOV 

347:  noo 

; t  est     for    equal 

TIOV 
710  V 

cmo 
J  z 


t  rue 


TIO  V 

; t  est     for    equa 1 

TIO  V 

mov 

CmO 

J  z 


t  rue 


■no  v 
; 1 og  i  c  a  1  and.  C 
•no  v 
and 
•no  v 
; oranch    on    f  a  1 s 

TIOV 

accumu 1  at  or 

i  z 
f alse(=0) 

Jassign    value    o 
(16-bi  t  ) 

TIOV 

•no  v 
348:  odd 

;test     for    equal 

TIOV 
TIOV 
CTO 

J  z 


AX,ACNU^        Jassiqn  ACNUM 
A  C  3  /  A  X        ;to  AC5 

rdefine  location  3  4  7 
itv  between  NEXTAC  and  3C05  (16-oit) 

3T01/1         ?oresuoDose  equality 
AX, NEXT  AC         ; fetch  NEXTAC 
A  X  /  3  C  0  5        ;  c  o  m  p  a  r  e  arguments 
$  +  4  ;end  routine  if 

d»T01  ,  0         ;not  eaual/  3T01  =  0 

ity  between  AC4  and  3C02  (lb-bit) 

3T02/1         JoresuDDOse  equality 
AX/AC4         ;fetch  AC4 
AX/3C02        IconDare  arguments 
$  +  4  ; end  rout  i  ne  if 

a)T02,0         ?not  equal,  3T02  =  0 
16-bit)  3T01  .and.  3T02  =  3T01 
AX,3T01 
A  X  ,  3  T  0  2 

3T01 ,AX 


AL/3T01 

AL/O 
348 


; 1 oad  value  into 

; compare  to  zero 
?  j  umo  t  o  348  i  f 


f  one  variable  to  another  variable 


AX, ACNlH 
AC4,  AX 


ACNlH 


ity 


t  rue 


t  rue 


mov 
/test  for  equal 

■nov 
■nov 
cmo 
j  z 

mo  v 
; 1 oqi  ca 1  and.  ( 
mov 
and 
mov 


i  ty 


; ass i qn 

;to  AC4 

:define  location  348 
between  \JEXTAC  and  3C06  (16-oit) 
3T01/1         /Dresupoose  equality 
AX, NEXTAC        ;  fetch  NEXT  AC 
AX/3C06        ;comoare  arguments 
$  ♦  4  lend  routine  if 

3T01,0         ;not  equal,  3T01  =  0 
between  AC5  and  3C02  (16-bit) 
3T02/1         ?Dresuooose  equality 
AX,AC5        Pfetch  AC5 
AX/3C02        JcoTiDare  arouments 
S+4  ; end  routine  if 


3T02/0 
16-bit)  3T01 
AX,3T01 
AX,3T02 
3  T  0  1  /  A  X 


?not  equa  1  /  i)1  0? 
and.  3T02  =  3T01 


=  0 
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; 1 oad  value  into 

; comDare  to  zero 
}  j  umo  to  3^P  if 


; or anc h  on  false 

■nov      AL/iHOl 
accumu 1  at  or 

cmo      AL  ,  0 
\z  n)U9 

fa1se(=0) 

Jassign  value  of  one  variaole  to  another  variable 
(16-bi  t ) 

nov  AX,ACNUM       /'assign  ACNUM 

nov  AC5/AX         ;tO  ACS 

o)49:       noo  :define  location  a)49 

;test  for  equality  between  NEXTAC  and  <i)C07  (16-oit) 

■nov  a)T01fl         JoresuDoose  equality 

nov  AX, NEXTAC        ;fetch  NEXTAC 

cmo  AX,S)C07        ;compare  arguments 

)  z  Sf'4              ?end  routine  if 
t  rue 

nov  3T01,0         ;not  equal,  a)T01  =  0 

Jtest  for  equality  between  AC6  and  <i)C02  (16-bit) 

■nov  -i)  T  0  2 ,  1         Joresuooose  eguality 

tiov  AX,AC6        ;  fetch  AC 6 

cmo  AX,5)C02        Jcomoare  arguments 

)z  $  +  4              ;end  routine  if 
t  rue 

mov  a)T02,0         Pnot  equal/  3T02  =  0 
/'logical  and.  (lb-bit)  5T0 1  .and.  i)T02  =  5>T  0 1 

■nov  AX,3T01 
and 
nov 
/ oranc  h  on  false 
■nov 
accumul at  or 

cmo 
j  z 
f alse(=0) 

Jassign    value    of    one    variable    to    another    variable 
(  16-bit) 

mov  AX/ACNJM                  /'assign    ACNUV 

■nov  AC6/AX                       ;toAC6 

5)50:                  noD  rdefine     location    t)50 

;test     for    eguality  between    NEXTAC    and    5)C08     (16-oit) 

tiov  i)T01/l                       /Dresupoose    eguality 

■nov  AX, NEXTAC                     /'fetch    NEXTAC 

Cmo  AX/t)C08                     ;compare    arauments 

jz  $  +  <4                                     /end    routine    if 
t  rue 

mov  t)T01/0                        ;not    equal  ,     5)T01     =    0 

/'test     for    eguality  between    AC7    and    5)C02     (lb-bit) 

mov  o)T02,l                        /oresuDoose    eouality 

■nov  AX  ,  AC7                     ;  fetch    AC  7 

cmo  AX/-JC02                     Jcomoare    arguments 


AX,i)T02 
cDTOl  ,  AX 

AL  /tDTOl 

AL/0 
5)50 


/load    value    into 

; compare    to    zero 
/  j  umo    to    5)50     if 
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i  z 


s  +  a 


J  end    rout  ine    if 


t  rue 


AL/9T01 

A|_,0 
a)51 


; 1 oad    value    into 

;  compare    to    zero 
; j  ump    to    S51     if 


nov  i)T02,0  ;not    equal,     a)T02    =    0 

logical     and.     (16-bit)     3T01     .and.    oH02    =    o)T01 
■nov  AX,,5T0l 

and  AX/-DT02 

nov  <3T01,AX 

; o ranch    on    false 
to  v 
accumu 1  at  or 

cmo 
j  z 
f al se(=0) 

fassign  value  of  one  variable  to  another  variaole 
(16-bi  t  ) 

mov       AX,ACNUM       ;assign  ACNUM 
tiov       AC7/AX        ;toAC7 
a)51:       noo  :define  location  -DS 1 

;test  for  equality  between  NEXTAC  and  n)C09  (lb-oit) 

tiov      a)T01#l         JoresuDoose  equality 
■nov      AX,  NEXT  AC        ;  fetch  MEXT  AC 
cno      AX,t)C09        ;coTtpare  arguments 
j  z       $ ♦ y  Jend  routine  if 

t  rue 

■nov      t)T01,0         ;not  equal,  fOTOl  =  0 
;test  for  equality  between  ACS  and  o)C02  (16-bit) 

■nov      9T02/1         loresuPDOse  equal  i  ty 
■nov      AX,AC8        /fetch  AC8 
cmo      AX/i)C02        ^compare  arqunents 
)z  %+U  Jend  routine  if 

t  rue 

•nov  a)T02/0  /not     equal/     3T02    =    0 

/'loqical     and.     (16-bit)     3T01     .and.     3T02    =    o>T01 
7,ov  AX,^T01 

and  AX/a)T02 

■nov  oH01,AX 

/ o  ranc  h    on     false 
■nov 
accumul  at  or 

cmo 
j  z 
f al se(=0) 

/assign  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

-nov       AX,ACMUM       /'assign  ACNUM 
■nov        ACS/AX         ;tO  AC8 
a)52:       noo  :define  location  o)52 

/'test  for  equality  between  NEXTAC  and  o)C  l  0  (16-bit) 

nov      <i)TOl/l         JoresuoDose  eauality 
■nov/      AX/NEXTAC         /'fetch  NEXTAC 
cmo      AX/iClO        ?comoare  arqunents 


AL/3T01 

AL/O 
5)52 


J  1 oad  value  into 

; comoare  to  zero 
/  j umo  t  o  352  i  f 
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J  2 


$♦« 


; end  routine  if 


t  rue 


nov  t)T01,0  Jnot  equal*  a)T01  =  0 

Jtest  for  equality  between  AC9  and  o)C0?  (16-bit) 

tiov  i)  T  0  2  ,  1  JoresuDDose  equality 

nov  A  X  ,  A  C  9  Ifetch  AC4 

cmo  AX,i)C02         JcotiDare  arguments 

]  z  Sty  lend  routine  if 


t  rue 


nov  ^)T02fO          Jnot  equal,  t)T02  =  0 
;logical  and.  (16-bit)  3T01  .and,  3T02  =  -D  T  0 1 

nov/  AX,ST01 

and  AX,rdT02 

nov  3T01,AX 
; branch  on  false 

•noy  ALfiTOl          ?1oad  value  into 
accumu 1  at  or 

cmo  ALfO              ;compare  to  zero 

jz  t)53             ?jutd  to  n>5^  if 
f al se(=0) 

Jassiqn  value  of  one  variable  to  another  variaole 
( 16-bi  t ) 

■nov  Ax,ACNLM       ;assign  ACNUM 

■nov  AC  9,  AX          ;  to  AC  9 

o)53:       noo  :define  location  353 
;add  16-bit  NEXTAC  ♦  -0CO 1  =  ^TOl 

nov      AX, NEXTAC  ;  fetch  first 
a  rqument 

a  d  :J      A  X  ,  <i>  C  0  1  ;add  second  argument 
to  first 

■nov      i)T01fAX  /Store  answer  in  a)T01 

fassiqn  value  of  one  variaole  to  another  variaole 
(16-bit) 

tiov       AX,.i)T01  ;  assign  3T0  1 

nov        NEXTAC,  AX  ,*  to  NEXTAC 
;test  for  equality  between  NEXTAC  and  3C 1  a  (16-bit) 

tiov      a)T01,l  JoresuoDOSe  equality 

■nov      AX,  NEXTAC  ;  fetch  WE  XT  AC 
AX,a)C14 

$  +  a 


7  comoare    arguments 
lend  routine  if 


cmo 

J  z 
t  rue 

■nov       t)T0  1  ,  0 
;  branc  h  on  false 

•nov      AL,iT01 
accumu 1  at  or 

cmo      AL ,  0 

jz      asa 
false(=0) 

Jassign  value  of  one  variable  to  another  variaole 
( 16-bi  t ) 

tiov  AX,t)C0?  Jassign    a)C02 


; not    egual ,     3T01    =    0 

;load    value    into 

; comoa re    to    zero 
>  j  ump    to    o)54     if 


1  15 


nov       NEXTAC,AX         ;to  NEXTAC 
a)5<4:       noo  :define  location  t)54 

{assign  value  of  one  v  a  r  i  a  o  1  e  to  another  variable 
(  16-bi  t ) 

mov        A*,iC02        ;assiqn  -OC02 
mov       TL0GIN,AX         !to  TLOGIN 


Procedure  TL3G0U 
3TL0GOU:     noo 


Jen  try  Doint  for 


TLOGOU 


►detect  condition-type  inout  (16-bit) 

in        AX, 18     {sense  environmental  data 
mov       KEYCHAfAX 

procedure  LOGOUT 

^LOGOUT:     noo  ;entry  Doint  for 
LOGOUT 

Jassign  value  of  one  variable  to  another  variable 
(16-bit) 

mov       AX,3C02  ;assiqn  3C02 

■nov        AC\IU^,AX  ;to  ACNUM 

►detect  condition-tyoe  inout  (16-bit) 

in        AX, 19  ;sense  environmental  data 
mov        ACMJM,AX 

;test  for  equality  between  ACO  and  ACNUM  (16-bit) 

•nov      itT0l,l  JoresuDDose  equality 

•nov      4X,AC0  ?fetch  ACO 

cmo      AX,ACNUM  fcompare  arguments 
Ji4 


J  z 


t  rue 


JTOl ,0 
AL^TOl 


;end  routine  if 
;not  eoual ,  3T01  =  0 
» 1 oad  value  into 


AL,0 
i)55 


;  comoare  to  zero 
j  ump  t  o  <i)55  i  f 


nov 
; or anc h  on  false 
mov 
accumu 1  at  or 

cmo 

j  z 
f alse(=0) 

Jassign  value  of  one  variaole  to  another  variable 
(16-bi  t ) 

mov  AX,3C02       ,'assiqn  ilC02 

mov  ACO, AX         ; to  ACO 

355:       noD  :define  location  D55 
;test  for  equality  between  AC  1  and  ACNUM  (16-bit) 

mov  d)T01fl         JoresuPDOse  equality 

nov  A  X  ,  A  C  1        ;  fetch  A C 1 

cmo  AX,ACNIU^        ;comoare  arguments 

}  z  S  ♦  '4              lend  routine  if 
t  rue 

mov  cD  T  0 1 ,  0         ;not  equal,  a)  T  0  1  =  0 
; branc  h  on  false 

mov  AL,i)T01         ;  1  o  a  d  value  into 
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J  comoa re  to  zero 
;  j  umo  t  o  (35b  i  f 


acc  umu 1  at  or 

cmo  AL,0 

jz  i")5b 
f  a  I se(  =  0) 

Jassiqn  value  of  one  v  a  r  i  a  o  l  e  to  another  variable 
( lb-bi  t  ) 

tiov  AX^COl       Jassign  i>C0\ 

ti  o  v  A  C  0  ,  A  X        ;toAC0 

J56:       noD  idefine  location  o)56 
;test  for  equality  between  AC?  and  ACNUM  (lb-nit) 

tiov  -i) T 0  1  #  1         loresuPDOse  equality 

tiov  AX, AC?         Jfetch  AC? 

cmo  AX, ACNUM        JconDare  argunents 

j  z  5  +  a 
t  rue 

nov  ^TOl  ,  0 
; or anc  h  on  false 

ti  o  v  A  L  r  d  T  0  1 
accumu 1  at  or 

cmo  AL  ,  0 

jz  05  7 
fa1se(=0) 

lassign  value  of  one  variable  to  another  variable 
(  lb-bi t ) 

Tiov  AX, ^03       Jassiqn  t)C03 

mov  A CO, AX         Jto  ACU 

i)57:       noo  rdefine  location  <057 
;test  for  equality  between  AC3  and  ACNUM  C 16  — bi  t ) 


; end  rout  ine  if 

;not  equal  ,  t)T0  1  =  0 

;load  value  into 

; comoa  re  to  zero 
J  jumD  to  (357  if 


JoresuDoose  equality 
;  f  e  t  c  h  A  C  3 

Jcoiipare  arguments 
;  end  routine  if 

;not  equal,  .i)T0  1  =  0 

; 1 oad  value  into 

;  comoa  re  to  zero 
?  j  umo  t  o  <358  i  f 


■no  v  <3  T  0  1  ,  1 

tiov  AX,AC3 

cmo  AX, ACNUM 

jz  $  +  4 
t  rue 

■nov  t)T01,0 
J  br anc  h  on  false 

nov  AL,a)T01 
accumul ator 

cmo  AL,  0 

jz  358 
f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
( lb-bi  t  ) 

tiov  AX,r3C0a  Jassiqn     j)C04 

•nov       AC0,AX        ;toAC0 
(358:       noD  rdefine  location  a)58 

;test  for  equality  Detween  AC4  and  ACNU'*1  (16-bit) 

•nov  i)T0l,l         iDresuDpose  equality 

tiov  Ax,Aca  yfetch    Aca 

cmo  AX, ACNUM         Jcomoare  arguments 

jz  $  ♦  '4  lend  routine  if 

t  rue 
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4  T  0  1  ,  0 
AL/5T01 


/ not  equa 1  ,  4f0 1  =  0 
/ 1 oad  value  into 


/  compare  to  zero 
; j  umo  t  o  459  i  f 


/  end  rout  ine  if 

/  not  equal  ,  4T0 1  =  0 

; 1 oad  value  into 

/ compare  to  zero 
/jump  to  4 1>  0  if 


tiov 
/  or anch  on  false 
•no  v 
accumul at  or 

cmo      AL,0 
jz       459 
f al se(=0) 

;assiqn  value  of    one  variaole  to  another  variaole 
( 16-bi  t  ) 

tiov       Ax,oiC05       /assign  4C05 
nov       AC0,AX        JtoACO 
459:       n  d  o  :definelocationm)59 

;test  for  equality  between  AC5  and  ACNUM  (16-bit) 

tiov      i)T01/l  ;oresuDDOse  equality 

nov      AX,AC5        ; fetch  AC 5 
cmo      AX, ACNUM        JcoTiDare  arguments 
j  z      S  +  a 
t  rue 

■nov      4T01,0 
;  branch  on  false 

tiov      AL,3T01 
azc umu 1  at  or 

cmo      AL,  0 
j  z       460 
f al se(=0) 

/assign  value  of  one  variaole  to  another  variaole 
( 16-bi  t  ) 

tiov       AX,4C06       /assign  t)C06 
nov       AC0,*X        ;to  ACO 
460:       noD  :define  location  4&0 

/test  for  equality  between  AC6  and  ACNUM  (16-bit) 

tiov      4T01,1  /oresupoose  equality 

■nov      AX,AC6        /fetch  AC  6 
cmo      AX, ACNUM        Zcomoare  arguments 
jz       S  +  4 
t  rue 

mov      4T01  ,  0 
/ or anch  on  false 

mov      AL,4f01 
accumu 1  at  or 

cmo       AL , 0 
jz        461 
f a1se(=0) 

/assign  value  of  one  variaole  to  another  variable 
(  16-bit) 

tiov  Ax,4C07  /assign    4C07 

tiov  ACO, AX  ZtoACO 

461:  noo  rdefine    location    4bl 

/test     for    equality    between    AC7    and    ACNUM     (16-bit) 

■nov      4T0l,l         /Dresuooose  equality 
mov      AX,4C7        /fetch  AC7 


/ end  rout  ine  if 

/ not  equal ,  4T0 1  =  0 

/load  value  into 

/ compare  to  zero 
/ j  umo  t  o  46 1  if 
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Pcomoare  arguments 
;  end  routine  if 

;  n  o  t  equal,  a)  T  0  1  =  0 

;  1  oar)  value  into 

; compare  to  zero 
i  j  umo  to  a)62  if 


cmo  AX,ACNUM 

)Z  $  +  '4 
t  rue 

■nov  a)T01  ,  0 
; o  pane h  on  false 

-nov  AL/5T01 
accumu 1  at  or 

cmo  AL , 0 

j  2  nl  6  2 
f al se(=0) 

Jassiqn  value  of  one  variaole  to  another  variaole 
( 16-bi  t ) 

nov  AX,3C08       ;assiqn  3C08 

mov  AC0,AX         ;toAC0 

n)b2l                  noo  zdefine  location  T)h? 
/'test  for  equality  between  AC  9  and  AC  Nil M  (16-bit) 

nov  ilTOlfl         ;oresuDoose  equality 

■nov  AX,AC8        ;  fetch  A C 8 

cmo  AX/ACNUM        Jcooioare  arquments 

\z  $  +  a 

t  rue 

mov  a)T01  ,  0 

; oranch    on    false 

■nov  AL, 9T0  1 

accumu 1  at  or 

cmo  AL  ,  0 

j  z  i63 

f al se(=0) 

Jassign  value  of  one  variaole  to  another  variaole 
(16-bit  ) 

■nov       AX,i)C0  9       ;assiqn  3C09 
■nov       ACQ, AX         ,*to  ACO 
5)  6  "5 :       noo  :define  location  ilb5 

;test  for  equality  between  AC  9  and  ACNUM  CI  6-bit) 

•notf      cDTOlfl         iDresuooose  equalitv 
■nov      AX,AC9         ;  fetch  AC^ 
cmo      AX^ACNU^        Jcomoare  arguments 
jz      s  +  a 
t  rue 

■nov      -0TO1  ,  0 
; oranch  on  false 

■nov      AL,a)T01 
accumul at  or 

cmo      AL , 0 
j  z       <i>6a 
f al se(=0) 

; a  s  s  i  q  n  value  of  one  variaole  to  another  variable 
(16-bit) 

■nov       A  X  ,  i)  C  1  0       ;  assign  i)  C  1  0 
mov        ACO, AX         ;toAC0 
<5>  6  ^4 ;       noo  Zdefine  location  <t)o4 


Jend  routine  if 

;  not  equal  ,  t)T01  =  0 

? 1 oad  value  into 

; compare  to  zero 
J  j  umo  to  a)63  i  f 


?  end  routine  if 

;not  equal,  at  T  0 1  =  0 

*  1 oad  value  into 

; comoa  re  to  zero 
r  j  umo  t  o  <364  i  f 
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^assign  value  of  one  variaole  to  another  variaole 
(16-bi  t ) 

nov       AX,t)C02       Jassiqn  i)C02 
tiov       TLDGOUfAX         ;to  TLOGOU 


;orocedure  POSCH 
n)POSCH:     noo 


Jentry  point  for 


PDSCH 


;detect  c ond i t i on-t yoe  inout  (16-bit) 

in        AX, 20     ;sense  environmental  data 

■nov  NE*IP0S,AX 

;test     for    equality    between    MErtPOS    and    3C01     (16-oit) 


•nov  5)T0  1  ,  1 

mov  AX,NE/dP0S 

Cmo  AX,5)C01 

]z  %  +  a 

t  rue 

m  o  v  if  T  0  1  ,  0 

',  o  ranch    on    false 

tiov  ALr^TOl 

accumu 1  at  or 

Cmo  Al ,  0 

)z  5>65 

f al se(=0) 

;  a  s  s  i  g  n  value  of  one  variable  to  another  variable 
( 16-bi  t  ) 

■nov       AX,t)C01       Jassiqn, t)C01 
tiov        POSCH, AX         ;tO  POSCH 
5)65:       noo  sdefine  location  5)65 


JoresuDoose  equality 

;  fetch  NE^IPOS 
Icomoare  arguments 

; end  rout  i  ne  if 

?  n  o  t  equal  f  a)  T  0  1  =  0 

\ 1 oad  value  into 

;  compare  to  zero 
/ j  ump  t  o  365  i  f 


Porocedure  =>0SUP0 

5)P0SUPD:     noo  Jentry  ooint  for 

P3SUP0 

? detect  condi t i on-t yoe  inout  (16-bit) 

in        AX, 21     Jsense  environmental  data 

tiov  POSITI,AX 

; assign    value    of    one    variaole    to    another    variable 
( 16-bi  t ) 

tiov  AX,i)C02  ,'assiqn    a)C02 

■nov       POSCH, AX         ;  t  o  POSCH 


;orocedure  MSSIN 
5HSGIN:     noo 


Gentry  ooint  for 


MSGINI 


Metect  c ondi t i on-t yoe  inout  (16-bit) 

in        AX, 22     ?sense  environmental  data 
■nov       MSGPEA,AX 

;test  for  equality  between  MS3REA  and  5»C01  (16-bit) 

nov      5)T01,1         ;oresuODOse  equality 
nov      AX,^SGREA        ;fetch  MSGREA 
cmo      AX,5)C01        ;comoare  arguments 
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J  Z 


5  + a 
3T01 ,0 

AL,3T01 


AL,0 
a)66 


Jend  routine  if 
?  n  o  t  equal*  -0  T  0  1  =  0 
J  1 o a d  value  into 
?  co-noare  to  zero 


t  rue 

■no  v 
?  o  pane h    on    false 

TIO  V 

accuTu 1  at  or 

c  T13 
J  3 

f  3 1 se(  =  0) 

^assign  valje  of  one  variaole  to  another  variaole 
(16-bi  t  ) 

nov        AX,t)C01        Jassiqn  iCOl 
nov       M3GIN,Ax        ;to  MSGIN 
rD  6  6  :       noD  idefine  location  Sob 


?  j  u  m  o    to    o)66     if 


Jorocedure    *1S3ST0 
aMSGSTO:  noo 


; ent  ry    ooint     for 


M3GST0 


Jdetect  c ondi t i on-t yoe  inout  (16-bit) 

in        A  X  ,  2  3     Jsense  environmental  data 

■nov        MESSAG,AX 
Jsend  condi t i on-t yoe  outout  (16-bit) 

nov       AX,MSGRCV     ;issue  control 

out       72, AX 
;test  for  equality  between  MFXT^S  and  a)C02  (16-bit) 

•nov      d) T 0  1  f  1         ;oresupoose  equality 

■nov      AX,NEXTM3        ;fetch  NEXT^S 

Ax,9coa 


CTIO 

J  z 


t  rue 


5 +  '4 
AL,51T01 


?co^Dare  arguments 
; end  routine  if 


;not  equal  ,     a) T 0 1  =  0 
; 1 oad  value  into 
?  conDa re  to  zero 


7  j  umo    to    367     if 


•nov 
; or anc h    on     false 
•nov 
accumu 1  at  or 

Cno  AL,0 

)z  i»6  7 

f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variaole 
( 16-bi  t  ) 

nov       AX,MESSAG       Jassign  MESSAG 
nov       ACOf  AX        ;  to  ACO 
a)  6  7  :       nqp  Mefine  location  ilt)7 

;test  for  equality  between  NEXTMS  and  i)C01  (16-oit) 

■nov      t)T01/1         JoresuDoose  equality 
nov      AX,MEXTViS         ;fetch  NEXTMS 
Cno      AXf9C01        Jcomoare  arguments 
jz       $  +  '4  lend  routine  if 

t  rue 

nov      .i)T0t,0         ;not  equal  ,     i)T01  =  0 
J  or anc  h  on  false 

nov      ALftDTOl         ;  1  oad  value  into 


121 


accumu 1  at  or 

cmo  AL/0  Jcomoare  to  zero 

)  Z  a)  6  8  ;jumotOT)b8if 
fal se(=0) 

;assign  value  of  one  variable  to  another  variaole 
( 16-bi  t  ) 

nov  Ax,MESSAG  Jassiqn  MESSAG 

nov  AC1/AX  ;toACl 

368:       noo  rdefine  location  a)68 
;test  for  equality  between  NEXTMS  and  -iCOS  (16-bit) 

ti  o  v  a) T 0 1  f  1  JoresuDpose  equality 

tiov  AX,NEXTMS  ;fetch  NEXTMS 
AX,cdC03 

t  +  a 


»connoare  arguments 
lend  routine  if 


;not  equal ,  iTOl  =  0 

?  1  oad    value    into 

;  compare    to    zero 
/  j  umo    t  o    <i)69    i  f 


CUD 
j  2 

true 

tiov  3T01,0 

; oranch    on    false 

tiov  AL,i)T01 

accuTu 1  at  or 

cmo  AL  ,  0 

)z  t)69 

f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variaole 
( 16-bi  t  ) 

tiov/       AX, MESSAG       Jassign  MESSAG 
no v       AC  2 /AX        ; to  AC 2 
5)69:       noD  :define  location  o)b9 

;test  for  equality  between  MEXTMS  and  ilCOu  (16-oit) 

nov      d)T01»l         I'oresuDoose  equality 
nov      AX,NEXTMS        ;fetch  NEXT^S 

Ax,acoa 


;comoare  arguments 
; end  routine  if 


;not  equal  ,  3T0  1  =  0 

;load  value  into 

;  comoare  to  zero 
JjuTio  to  3  7  0  if 


Citio 

j  7. 

true 

tov  a)T01  ,  0 

; or anc h    on     false 

tiov  AL/3T01 

ace  umu  1  at  or 

cmo  AL  t 0 

jz  370 

f alse(=0) 

/assign  valje  of  one  variable  to  another  variaole 
(16-bi  t ) 

nov       AX, MESSAG       ;assign  MESSAG 
nov       AC  3, AX        ;toAC3 
370:       noD  :define  location  370 

;test  for  equality  between  NJEXTMS  and  3C05  (16-oit) 

tiov      3T0l,l         JoresuDDOse  equality 
■nov      AX/NEXT^S        ;fetch  NEXTMS 
cm:      AX,3C05        ;comoare  arguments 
)z  S+y  ?end  routine  if 

t  rue 
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3  T  0  1  ,  0 
AL,  -0TO1 


»'not  equal  ,  9T0 1  =  0 
? I o a d  value  into 


;  c  omDare  to  zero 
fjutio  to  i)71  if 


nov 
?  o  ranc  h  on  false 
no  v 
accumu 1  at  or 

cmo      AL,0 
jz       o)71 
f alse(=0) 

;assion  value  of  one  variaole  to  another  variaole 
(  16-bi  t ) 

nov        AX,MESSAG        Jassiqn  M£SSA(; 
nov        AC  4, AX         ,*toAC4 
d)71:       noD  rdefine  location  o)71 

?test  for  equality  between  NEXTMS  and  t)C06  (16-bit) 

nov      i)T01,l         ;oresuODOse  equality 
nov      AX,^EXTMS         ;fetch  NEXT^S 
AX,  9C06 

$  +  a 


;comoare  arqunents 
?  end  routine  if 


;not  equal,  o)T01  =  0 

; 1 oad  value  into 

; coTDare  to  zero 
J  j  umo  to  <?72  if 


Cm  o 
j  z 
true 

nov      3T01  ,  0 
; oranc  h  on  false 

■nov      AL,9T01 
accumu 1  at  or 

cmo      AL ,  0 
jz       t)7? 
f al se(=0) 

?assiin  value  of  one  variaole  to  another  variaole 
( 16-bi  t  ) 

nov       AX,MESSAG       Passiqn  MESSAG 
■nov       ACS, AX         ;to  AC5 
o)72:       noo  :define  location  3  72 

;test  for  equality  between  MEXTMS  and  3C07  (Ib-oit) 

■nov      3  T  0  1  ,  1         JoresuDoose  equality 
nov      AX,NEXTMS        ;fetch  NEXl^S 
AX,3C07 
S  +  '4 


Jcomoare  arqunents 
;end  routine  if 


;  not  equal  ,  3T0 1  =  0 

;  load  value  into 

;  comoare  to  zero 
t  j  umo  to  373  if 


Cno 
j  Z 

t  rue 

nov      3  T  0 1 , 0 
; oranc  h  on  false 

nov      AL, 3T0 1 
accumu 1  at  or 

cno      AL  ,  0 

jz       973 
false(sO) 

Jassiqn  value  of  one  variaole  to  another  variable 
(  16-bi  t  ) 

nov       AX, MESSAG       ;assiqn  MESSAG 

nov        AC6,AX         ,*toAC6 
373:       noD  :define  location))  73 

;test  for  equality  between  MEXTMS  and  3C08  (lb-oit) 

nov       3T01,1  JoresuODOSe  equality 

nov  AX,NEXTMS  ;fetch    NEXMS 
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/Compare  arqunents 
}  end  routine  if 

;  not  equal  ,  i»T0 1  =  0 

/load  value  into 

;  compare  to  zero 
/jump  to  a)  71     if 


Cmo  AX,rDC08 

JZ  $*4 

t  rue 

mov  ST 01,0 
; oranc  h  on  false 

tiov  AL/3T01 
accumu 1  at  or 

cmo  AL  /  0 

iz  -D7U 
f  al se(  =  0) 

;assiqn  value  of  one  variable  to  another  variable 
( lb-bi  t ) 

mov  AX,MESSAG       /'assign  MESSAG 
mov       AC7,AX        ;to  AC7 
5)74:       noo  :define  location  o)7^ 

,*test  for  equality  between  NEXT^S  and  a)C09  (16-oit) 

mov  a)T01/l         Joresuppose  equality 

tioi/  AX,NEXTMS        /'fetch  NEXT^S 
AX/iCO^ 

s  +  a 


JcomDare  arguments 
}  end  rout  ine  if 


/not  equal/  i)T0  1  =  0 

; 1 oad  value  into 

f compare  to  zero 
/  j  umo  to  a)75  if 


Cmo 
j  z 
t  rue 

tiov  JiTOl  ,  0 

; o  ranch    on    false 

mov  AL/^TOl 

ace  umu 1  at  or 

cmo  AL  /  0 

j  Z  rD  7  5 

f alse(=0) 

Jassiqn  value  of  one  variable  to  another  variaole 
(16-bi  t  ) 

mov       AX,*ESSAG       Jassign  MESSAG 
mov       AC8/AX        ;  to  AC ft 
i)75:       noo  :define  location  o)7S 

/'test  for  equality  between  NEXTMS  and  <nC  1 0  (16-bit) 

mov      <t)T01/1         Joresuooose  equality 
mov      AX/NEXTMS        ;fetch  NEXTMS 
AX/9C10 

$  +  a 


/ComDare  arguments 
;end  routine  if 


Cmo 

j  z 
t  rue 

mov       ctfTO  1  /  0 
; branc  h  on  false 

mov      AL/a)T01 
accumu 1  at  or 

cmo      AL  /  0 

j  z        5)7b 
f al se(=0) 

Jassiqn  value  of  one  variable  to  another  variable 
(16-bi  t ) 

mov        AX,MESSAG       ;assiqn  MESSAG 

mov       AC9/AX         ;to  AC'? 
a)  7  6  :       njD  Idefine  location  il76 


;not  equal  /  i)T01  =  0 

; load  value  into 

/ compare  to  zero 
/  j  umo  to  a)  76  if 


12a 


/fetch  first 


;add  16-bit  NEXTMS  ♦  3C01  =  3T01 
tiov      ax, NEXTMS 
argument 

add      AX,2C01        Jadd  second  argument 
to  first 

t»ov      i)T01,AX        Jstore  answer  in  -0  T  0  1 
Mssign  valje  of  one  variaole  to  another  variable 
( 16-bi  t ) 

tiov       AX  ,  d)T  0  1       ;assign  -D  T  0  1 
tov       NEXTMS, AX        ;to  NEXTMS 
Jtest  for  equality  between  NEXTMS  and  2C 1 4  (lb-bit) 

nov      ST01,1         Joresuooose  equal  i  ty 
•nov      AX, NEXTMS        /'fetch  NEXTMS 
AX,3C14 
$  +  <! 


Jconnoare  arguments 
?end  routine  if 


cmo 
i  z 
t  rue 

nov       a)  T  0  1  /  0 

; oranc  h  on  false 

hoi/      AL/5T01 
accumu 1  ator 

cmo      AL  /  0 
\z  t)77 

f a1se(=0) 

Mssign  value  of  one  variaole  to  another  variable 
(  16-bi t ) 

-nov       Ax,a)C02 
tiov       NEXTMS, AX 
3  77:       noo 


/'not  equal  ,  a>T0 1  =  0 

, 1 oad  value  into 

; comoare  to  zero 
J  j  umo  to  a)7  7  if 


;  ass  i  gn  o)C02 

;to  NEXTMS 
:define  location  2  77 


Mef 

3C01 
Mef 

;def 
2C03 
;def 

dicoa 

;def 
<iC05 
Mef 
2C06 
;def 
3C07 
;def 
3C0S 

;def 
dC09 
;def 
5>C10 
Mef 
5)C  1  1 
Mef 


ne  8-bit  data  constant 

equ      1 
ne  9-bit  data  constant 

equ      0 
ne  8-bit  data  constant 

equ      2 
ne  8-bit  data  constant 

equ      3 
ne  8-bit  data  constant 

equ      4 
ne  8-bit  data  constant 

equ      5 
ne  8-bit  data  constant 

equ      6 
ne  8-bit  data  constant 

equ      7 
ne  8-bit  data  constant 

equ      8 
ne  8-bit  data  constant 

equ      9 
ne  8-bit  data  constant 

equ      30 
ne  8-bit  data  constant 
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i  n  ram 


SC13       equ      20 
/define  8-bit  data  constant 
SC13       equ      15 
/define  8-bit  data  constant 
SC14       equ      10 
/define  8-bit  storage 

orq     1033 

ST01:      do      0 

orq  986531 

Mefine    8-bit     storage 

orq     1033 


i  n  ram 


ST03: 


Ssovs  r  : 
pointer 

S  m  1  o  o : 


do      0 

orq     98b531 

monitor   section 

mov     AX, it  able 


mov 
mov 
i  nc 
i  nc 
i  nc 
mov 
j  tio 


Sont  r  t  AX 

BX, Spot r 

BX 

BX 

BX 

Sont  r  ,  BX 

BX 


data   sec  t  i  on 


Son t  r  : 
address  pointer 

Stable: 
(define  too) 

continqency  KEYINM 

contingency  ^INTAC 

continqency  S^MANJ 

contingency  S^AUTO 

continqency  TPOLL 

continqency  M  L  0  C  A  T 

contingency  T^LOCA 


orq 
dw 

1033 
0 

orq 
dw 

986531 
Sont  r 

j  no 

StKEVINM 

j  tio 

3tMINTAC 

j  TIO 

St S^MANJ 

j  -no 

StSMAUTD 

j  "no 

i)t  TPOLL 

j  TIO 

St^LOCAT 

j  TIP 

St TML0CA 

j  TIO 

StPOSCH 

;8  bit  variable  T)  T  0  l 

Iron  address  oointer 
;8  bit  variable  ni  T  0  3 

?rom  address  oointer 

Jinitalize  table 

i     to  beg  i  nn  i  nq 
;  mon  i  t  or  l ooo 


;table  entry 

;rom  address  oointer 
',  t  ab  l  e  header 

;test  for 

;  test  for 

;  t  est  for 

;  t  e  s  t  for 
;  t  e  s  t  for 

;  t  e  s  t  for 

i  test  for 
;  t  e  s  t  for 
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c  ont  i ngency  POSCH 

contingency  M^S3DS 

contingency  M  C  L  0  C  < 

Contingency  ^  L  0  G I  N 

contingency  TL03IM 

contingency  TLOGOJ 

contingency  M  S  G  I  N 

contingency  MSGIN 
t  ab!  e 


■no 


no 


TID 


no 


■no 


■no 


■no 


no 


a  t  K  E  Y  I  N  * :     call 
contingency  code  <  E  Y  I  N  M 

C  71D 

Contingency  result  to 


execute  K3INPM 
K3I-MPM  if  true 


)  nz 
cal  1 
j  no 


StwiNTAC:     call 
contingency  code  ^ I M  T  A  C 

C  no 
contingency  result  to 


execute  INT  AC 
i  f  t  rue 


cal 

j  no 


dtS^MANU:     call 
contingency  code  S^ANU 

C  no 
contingency  result  to 


execute  MANUAL 
MANUAL  if  true 


cal  1 
j  no 


at  yimsgds 
at  yiclock 

itMLOGIN 
atTLOGIN 

at  TLOGOJ 
a)  t  M  S  G  I  N 

at ^sgin 

-Osovs  r 

aKEYIN^ 
KEY IN^, 1 

$  ♦  5 

aKBINPM 

i)  m  1  o  o 

a*IMTAC 
VINTAC,  1 

J  ♦  5 
3INTAC 
an  1  oo 

a S^m AND 
SMviANU#  1 

*  ♦  5 
aMANUAL 
ami  o  o 


test  for 

test  for 

test  for 

test  for 

test  for 
;  t  e  s  t  for 
;  t  e  s  t  for 
;  go  to  start  of 

; ex  ec  ut  e 

;  conoare 

; t  r  u  e  flan  (  1  ) 
; i  f  false  do  not 

Jexecute  task 

J  ret  urn  to  non  i  t  or 

»  exec  ut  e 

; comoa  re 

?true  flag  (1) 
;if  false  do  not 

Jexecute  task  I  NT  AC 

^return  to  nonitor 

J  execut  e 

IcoToare 

; t  r  u  e  flag  (1) 
;if  false  do  not 

; execut  e  task 

?  ret  urn  to  nonitor 
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atSMAUTO:     call 
contingency  code  SM&UTO 

C  TIO 

contingency  result  to 


execute  AUTO 
if  true 


cal  1 

j  no 


itTPOLL:     call 
contingency  code  TP3LL 

C  TIO 

contingency  result  to 


execute  P0LL4U 


P3LLAU  if  true 


J  -»z 


cal  1 


j  no 


5tML0CAT:     call 
contingency  code  MLDCAT 

C  TIO 

contingency  result  to 


execute  IOC  AT  I 
L3CATI  if  true 


J  v 
cal  1 

j  T1D 


StTMLOCA:  call 

contingency    code    TvIlOCA 

c  TIO 

contingency  result  to 


execute  MANLOC 


MANLOC  if  true 


)  v 


cal  1 


J  TIO 


itPOSCH:     call 
contingency  code  3OSCH 

C  no 
contingency  result  to 


J  v 


o)SVlAUT0 
SMAUTO, 1 

$     +    5 
i")  A  J  T  0 
a)  ti  1  o  O 
}T°0LL 
TP3LL,  1 

$     T     5 
3P0LIAU 
T)m  1  oo 

^DMLOCAT 
^LDCAT, 1 

%    ♦    5 
3L0CATI 

aim  1  oo 
oHMLOCA 

TMLOCA,  1 

$  ♦  5 
o)MANLOC 
a)  m  1  o  o 
5P0SCH 
POSCH,  1 

$  +  5 


J  ex  ecu t  e 

;  comoa  re 

;true  flag  (1) 
Jif  false  do  not 

;  execute  task  AUTO 

Ireturn     to     Tionitor 

?  execut  e 

;  comoare 

;  t  r  u  e  flag  ( 1 ) 
; i  f  false  do  not 

^execute  task 

("return  to  non  i  t  or 

^execute 

;  comoa  re 

J  t  rue  flag  ( 1  ) 
;if  false  do  not 

Jexecute  task 

^return    to    Tionitor 

Jexecute 

J  c  omoa  re 

; t  rue  f 1 aq  ( 1  ) 
?if  false  do  not 

Jexecute  task 

Jreturn    to    Tionitor 

Jexecute 

; comoa re 

Jtrue  flaa  (1) 
Jif  false  do  not 


execute  PQSUPD 
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PDSIIPQ    if    true 


cal  1 


J  TIO 


itMMSGDS:     call 
continaency  code  A M 5 G 0 S 

CTID 

contingency  result  to 


execute  MSGDSP 


^SGDSP  if  true 


j  "tz 


cal  1 


j  no 


dtMCLOCK:     call 
Contingency  code  MCLOCK 

C  no 
contingency  result  to 


execute  CLOCKS 


ClOCKS  i  f  t  rue 


)  n? 


cal  1 


J  TIO 


StMLOGIN:     call 

contingency  cole  MLOGIN 

c  TIO 

contingency  result  to 


execute  LOGINO 
LOG  I  NO  if  true 


J  nz 

cal  1 
j  -no 


a)tTL0GIN:     call 
contingency  code  TLOGIN 

c  "no 
contingency  result  to 


execute  LOGIN 
if  true 


cal  1 
j  "no 


-DtTLOGOU:     call 
contingency  code  TLOGOU 

c  Tip 


i)P0SUPD 
?m  1  oo 

aHMSGDS 
MMSGDS, 1 

$     ♦    5 

t^sgdsp 

t)  m  1  o  o 

2*CL0CK 
MCL3CK, t 

$  +  5 

i)CL0CKS 
im  1  oo 
3ML0GIN 

ML3GIN, 1 

$    ♦    5 
oiLOGINO 
2ti  1  oo 

a)TL0GIN 
TLOGIN, 1 

$  +  5 
a)L0GIN 
a)Ti  1  OO 

3TL0G0J 
TLOGOU, 1 


Jexecute  task 

Jreturn  to  monitor 

; exec  ut  e 

J  comoa  re 

;true  flag  (1) 
; i  f  false  do  not 

^execute  task 

jreturn  to  monitor 

; execut  e 

}  co-noa  re 

; t  rue  f 1 aq  ( 1 ) 
;if  false  do  not 

^execute  task 

f'retum  to  -non  i  t  or 

/'execute 

;  ccnoa  re 

;true  flag  (1) 
;  i  f  false  do  not 

^execute  task 

/return  to  "non  i  t  or 

; execut  e 

; comoa  re 

Jtrue  flao  (1) 
;  i  f  false  do  not 

Execute  taste  LOGIN 

; ret  u  rn  to  non  i  t  or 

/execute 

; comoa  re 
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contingency  resul t  to 

C3l  1 

j  TIO 


execute  LOGOUT 
LOGOUT  if  true 


9tMSGTN:     call 
contingency  code  ^  S  S I  N 

C  no 
continoency  result  to 


execute  MSGSTO 
MSGSTO  if  true 

c  otid  1  et  e 


j  -)2 
cal  1 

j  -no 

end 


I    ♦    5 
iiLOGOUT 
-Drr  1  oo 
rDMSGIN 
MSGIN, 1 

S  ♦  5 
9MSGST0 
-Om  1  oo 


t  rue  f 1 aa  ( 1 ) 
if  false  do  not 

execute  task 

return  to  monitor 

execute 

c  omoa  re 

true  flag  ( 1 ) 
if  false  do  not 

execute  task 

return  to  monitor 
Isoftware  listing 


this  realization  consumes   71.180  watts  of  Dower 
and  contains   16?.  chips. 
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APPENDIX  E 

NErtCSDL.FOR  OUTPUT 
LISTING  (HARDWARE) 


central     orocessinq    u^i  t 
device:  intel     8086    tiicroorocessoplnax-niorie^no 


n  io  )  ,  i  c  1 


1  fa, 15,  1 
a(0: 19) 

d(0:  15) 


connect  i  ons  : 
oins 
<4,  13,  12,  11,  10,  9,  8,  7,  6,  5,  a,  3,  2,  39,  38,  37,  36,  35  = 

pins  16, 15, 1U,  13, 12,  1  1 ,  10, 9, A, 7,6,5, U, 3,2, 39  = 


C  DU  ,   1  C 


Dl 

o  i 
Di 

d  i 
Di 
oi 
Di 
oi 
oi 

Dl 
D  1 

d  i 

Dl 

Di 

Dl 
Di 

d  i 

d  i 

oi 

C  1  ock 

de  v  i 

2 

CDnn 


o  1 
oi 

oi 
oi 
oi 


d  l  n 

n 
i  n 

n 

oi  n 

oi  n 


n  17  (n-ni)  =  qn  1 

n  18  ( i  it  r )  =  qnd 

n  19  =  elk 

n  3  4  =  Dhe-bar 

n  33  ( Tin/Tiax  -bar )  =  qnd 

n  32  ( r1»bar )  =  n . c . 

n  31  ( rq-bar/qt 0-bar )  =  n.c. 

n  30  ( r q-bar/qt 1 -oar  )  =  n.c. 

n  29  (lock-bar)  =  n.c. 

n  28  =  s2-bar 

n  27  =  si -bar 

n  26  =  sfl-bar 

n  25  (qsO)  =  n.c. 

n  24  (qsl)  =  n.c. 

n  23  (test-bar)  =  qnd 

n  22  =  ready 

n  2 1  =  reset 

ns  1,20  =  qnd 

n  40  =  f5v 

generator  (0.125  us 
ce:  intel  8284  cl ock 

ec  t  ions: 
1  (c  sync )  =  qnd 
( aen 1 -ba  r )  =  qnd 
(rdvl)  =  +  5v 
( r eadv )  =  ready 
( r dy 2  )  =  gnd 
( asn2-bar )     -    qnd 
=  cl  k 

=  reset 

=  res-bar 

( f /c-bar  )  =  qnd 

( e  f  i  )  =  qnd 

( async -bar  ) 


qen  and  driver  for  8  0  8b 


5 

4 

5 

o 

7 

8  : 

10 

1  1 

1  3 

14 

15 


Di  n 

oins  lb, 17  (  x  t  a  1  (  1 


=  +  5v 
2)  )  = 


device:  24  mhz  crystal 


1  31 


o  i  n  s  9  = 

oin  18  = 

octal  Dus 

device:  i 

connect  i  o 

oins  1 9 , 

oin  1  (a 


gnd 
♦  5v 

transceiver/data  bits  0:7 

ntel  8286  octal  nus  transceiver,  ic3 

ns  : 

18, 17, 16, 15, 14, 1 3, 12  (db(0:7))  =  do(0:7) 


D  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
oc  t  al 


0)  =  d(0) 

2  (al )  =  d(  1  ) 

3  (a2)  =  d(2) 

4  (ah)  -  d(3) 

5  (a4)  =  d(4) 

6  (a5)  =  d(5) 

7  (ab)  =  d(6) 

8  (a7)  =  d(7) 

9  (oe-oar)  =  .not.  den 
1  1  ( 


10  = 
20  - 

ous 


device:  i 

c  onnec  t  i  o 

oins  19, 

oin  1  (a 


i  c4 


o  i  n 
oi  n 
d  i  n 
d  i  n 
oi  n 
d  i  n 
d  i  n 
oi  n 
o  i  n 
oi  n 
d  i  n 


2 
3 
4 
5 
6 
7 
8 
9 
1  1 


(a 
(a 
(a 
(a 
(a 
(a 
(a 
(o 
( 


den 


10  = 
20  = 
OUS  Con t  PO 

device:  i 

connect  i  o 

oin  19  = 


o  i  n 
o  i  n 
oi  n 
Di  n 
oi  n 
oi  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
oi  n 
oi  n 
oi  n 


3  = 
18  = 
2    = 
5  = 
16  = 
a  = 


(a 
(i 


6 
1 

7  = 
9  = 
1  1  = 

13  = 

14  = 


t  )  =  dt /r-oar 

qnd 

+  5v 
transceiver/data  bits  8:15 
ntel  8286  octal  bus  transceiver 
ns  : 

18,17,16,15,14,13,1?    (db(0:7))    =    do(b:15) 
0)    =    d(0) 

1  )     =     ril  1  ) 

2)  =    d(2) 

3)  =    0(3) 

4)  =    d(4) 

5)  =    d(5) 

6)  =    d(6) 

7)  =    d(7) 
e-oar )     =     .not 
t )  =    dt /r-bar 

qnd 

+  5v 
1  1  er 

ntel     8288    ous 
ns: 

sO-bar 
S  1  -bar 

s2-bar 
c  1  k 
al  e 

d  en 
dt /r-bar 
e-oar )     =    and 
ob)     =    +5v 
7)  r  dc  -ba  r 
■nwt  c-bar 

i  owc-bar 

i  ore -bar 

i  nt  a-ba  r 


controller  for  8  0  86  coj,  ic5 


1  32 


oi  n 
oi  n 
oi  n 
oc  t  3  1 
dev  i  c 
c  onne 
oins 
oi  ns 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
octal 
dev  i  c 
c  onne 
oins 
oins 
o  i  n 
oi  n 
o  i  n 
oi  n 
oc  t  a  1 
dev  i  c 
c  onne 
oins 
oins 
oins 
oi  n 
oi  n 
oi  n 
oi  n 
3ddres 
dev  i  c 
c  onne 
oi  n 
oi  n 
o  i  n 
o  i  n 
oi  n 
oi  n 
Di  n 
Di  n 
Di  n 
oi  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
o  i  n 
addr es 


15  ( 
10  = 
20  = 
1  ate 
e:  i 
c  t  i  o 
1,2 
19, 

9  (o 
1  1   ( 

10  = 

20  = 

1  ate 
e:  i 
c  t  i  o 


,2 

9, 

(o 

( 


1 
1 
9 

1  1 

10  = 

20  = 

1  ate 

e:  i 

c  t  i  o 

1,2 

19, 

5,6 

9  (o 
1  1  ( 

10  = 
20  = 
s  de 


e: 
ct  i 

IS 
la 
1  3 
12 
1  1 
10 
9 


i 

o 
( 
( 
( 
( 
( 
( 
(o 
(o 


7 

1 

2 

3 

a 

5 

b 

8  = 

16  = 

s  de 


(e 
(e 
(e 


c  en ) 

and 
+  5v 
h  /  3d 
nt  a  1 
is  : 
,  3,  a 
18,  1 

9-33 

St  0) 

and 

+  5v 

h/3d 

-it  el 

ns  : 

,3, a 

18,  1 

e-oa 

st  o) 

gnd 

♦  5v 
h/ad 
-it  a  1 
ns  : 

,  3, a 
18,  1 
,7,8 
e-oa 
st  o) 
qnd 
+-5v 
code 
nt  el 
ns: 

3(0) 

0(1  ) 

0(2) 
o(3) 
o(4) 
o(5) 
(6)) 
(7)) 
a(lS 

3(16 
3(17 

1  -oa 

2-oa 
3)  = 

qnd 

♦  5v 
code 


=  f5v 


dress  o  i  t  s  0:7 
«282  octal  latch  for  808o  cou,  icb 

,5,6,7,8  (di  (0:  7)  )  =  a(0:7) 
7,  lb, 15, 1  a, 1 3, 12  (do(0:7)  =  a(0:7) 
r )  =  qnd 
=  ale 


dress  oi  ts  8:15 
8282  octal  latch  for  808b  ecu,  i  c  7 

,5,b,7,8  (di  (0:7)  )  =  a(8:  15) 
7, lb, 15, 14, 13, 12  (do(0:7))  =  a(8:15) 
r )  =  and 
=  ale 


dress  oits  lb:19 
8282  octal  latch  for  808b  cou,  ic8 

(di (0:3))  =  a( lb: 19) 
7,1b  (do (0:3)  =  a(lb:19) 

(di (3:7) )  =  qnd 
r)  =  and 

=  ale 


r/address  for  netiory  select 
^205  l-of-3  binary  decoder, ic9 


)  = 

)  = 

)  = 

)  = 

)  = 

)  = 


) 

) 

) 

r) 

p) 


c  su-oar ( 1 ) 
csu-oar ( 2 ) 
c  su-oar ( 3) 
csj-bar ( 4 ) 
csu-oar ( 5 ) 
c  s u-bar ( b ) 
c  su-oar ( 7 ) 
c  su-oa  r ( 8 ) 


=  a(0) 
=  a( 13) 


.not .  a( l^) 


r/address  for  nenory  select 
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connec t 

o i  n  IS 

o  i  n 

o  i  n 

o  i  n 

o  i  n 

o  i  n 

o  i  n 
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device: 
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(o(01 

(o(l  ) 

Co(2) 

(d(3) 

( o  ( a ) 

(d(5) 

(o(6) ) 

(o(7) ) 

=  3(15 

=  a(  16 
=  a(17 
( e 1 -oa 
(e^-oa 
(e3)  = 
=  gn  d 

=  +5v 

decode 

i  nt  e  1 

ions: 

(o(0) 
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(o(6) ) 

(o(7)  ) 

=  3(15 
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=  +5v 
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i  n  t  e  1 

i  ons  : 
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(o(l) 

(o(?) 

(o(3) 

(o(4) 

(o(5) 

(o(6)) 

(o(7)  ) 

=  3(15 
=  3(16 
=   3(17 


el  8205  l-of-8  binary  decoder, iclO 


) 
) 
) 

r) 

r) 

a 


c  su-oar ( 9 ) 
csu-Dar (10) 
csj-bar(ll) 
cs j-oa r ( 1 2 ) 
•    csu-oar (13) 
csu-bar (14) 
csu-bar (15) 
c  su-bar (16) 


=  a(0) 
=  a(19) 
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r/address  for  nemory  select 
8205  l-of-8  binary  decoder, icll 


)  = 
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)  = 

)  = 
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) 
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) 

r) 

r) 

a 


csu-bar (17) 
csu-bar (18) 
csu-bar (19) 
csu-bar ( 20 ) 
csu-bar (21) 
cs u-bar(22) 
csu-bar (23) 
csu-bar(2/4) 


=  a(0) 
=  a(18) 
(19) 


r/address  for  neiiory  select 
8205  l-of-8  binary  decoder,icl2 


)  = 

)  = 

)  = 

)  = 

)  = 
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15) 
16) 
17) 
oar ) 
oar ) 
=  a 
d 

5v 

jer/ 
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=  a(0) 
=  a( 18) 
not .  a( 19) 


address  for  Tienory  select 

205  1 • o f - 8  binary  decoder, icl3 

=  c  s 1 -bar ( 1 ) 
=  c  s 1 -oar ( 2 ) 
=  cs 1 -oar ( 3 ) 
=  c  s 1 -oa  r ( 4  ) 
=  cs 1 -oar (5) 
=  c  s 1 -oar ( 6 ) 

c  s 1 -bar ( 7 ) 

csl -bar (8) 


=  bhe-bar 
=  a(18) 
not .  a( 19) 


address  for  tienorv  select 

205  l-of-8  binary  decoder, icl 4 

=  csl -oar ( 9 ) 
=  csl -bar ( 1 0) 
=  csl -bar ( 1 1 ) 
=  csl -bar ( 12) 
=  csl -oar (13) 
=  csl -oar( 14) 

csl -bar(15) 

cs 1 -Dar (16) 


=  bhe-ba  r 
=  a(19) 
(18) 


address     for    Tie^ory    select 

205  l-of-8  binary  decoder, icl5 

=  csl -oar (17) 

=  csl -oar( 18) 

=  csl -bar ( 19) 

=  csl -oar ( 20 ) 

=  csl -oar (21) 
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sional  KFYFLG 

de  v  i  c 
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r  enna  i  nder  t  o 
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s  d 

e: 

ct  i 
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Q 


( 

7  ( 

1  = 

2  = 

3  = 
a  ( 
5  ( 
b  ( 

8  = 
16 

i  on 


(o(5) )  =  csl -oar(22) 
o(6) )  =  csl -bar (23) 
o(7) )  =  csl -bar(24) 

3(15) 

a(  16) 
a(  17) 
e 1 -oar  )  =  bhe-ba r 
e2-oar)  =  a(18) 
e3)  =  a( 19) 

and 
=  f5v 

ec  ode  r /addr  es  s  for  Tie-norv  select 
intel  8205  l-of-8  binary  decoder, icl6 
ons  : 

cs 1 -oar ( 25 ) 
c  s 1 -oar ( 26 ) 
csl -Dar ( 27 ) 
csl -oar (28) 
csl -Dar ( 29 ) 
cs 1 -oar ( 30 ) 
csl -bar (31 ) 
csl -bar ( 32 ) 


(3(0) ) 
Cod)) 

(3(2) ) 

(d(3)  ) 
(o(a)) 
(o(5) ) 
o(6)  )  = 
o(7)  )  = 
a(15) 

3(16) 

a(  17) 
e  1  -Dar  ) 
e2-oar ) 


=  bhe-ba  r 

=  3(18) 


e3)  =  .not  .  a( 19) 

ind 
=  +  5v 

node  inout  interface  hardware  to  sense 


ezintel  8212  8  bit  i /o  oort,ic  17 
c t  i  ons : 
3,5,7,9, 16, 18,20, 22(di  ( 1 :8)  )  =  KEYFLG(1:8) 


around 

oins  a,6,8, 10, 15, 1 7, 1 9,21 (do( 1 :8)  )  =  db(l:8) 
Din  2  (md)  =  and 
oin  11  (sto)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  0) 
Din  13  (ds?)  =  ino  .and.  doin 
oin  2 U    -    +  5  v 
oin  12  =  qnd 
condition  node  inout  interface  hardware  to  sense 
signal  KEYFLG 

devicetintel  8212  8  oit  i /o  oort,ic  18 
c  onnec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di  (9: 16)  )  =  KEYFLG(9:16) 
remainder  to 
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qround 

oins  4,6,8, 10, 15,17, 19, 21(do(9: 16))  =  db(9:lb) 
Din  2  (itid)  =  qnd 
oio  11  (  s t  o )  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a ( 8 :  1 5 )  value  0) 
oin  13  (  d  s  2  )  =  ino  .and.  doin 
oin  2  4  =  +  5v 
oin  12  =  and 
16  oit  outojt  oort  coToosed  of  two  8  bit  oorts 
xl  is  for  low  order  Dyte 
x9  is  for  high  order  Oyte 
condition-mode  o  u  t  d  u  t  interface  hardware  to  issue 
s  i  qna 1 :  x 1 

device:  intel  821?  8-bit  i /o  Dort,  ic  19 
connec  t  i  ons : 
Dins  3,5,  7,9, lb/ 18,20,22  (di(l:8))  =  db(l:8) 
Dins  '4,6,3,10,15,17,19,21  (do  (1:8))  =  x  1  (  1  :  8  )  ;  i  f 
8  are  rea 

Din   2  (mj)  =  +  5v 
oin  11  (stb)  =  qnd 
oin   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  0) 
Di  n  2a  (v:c )  =  *5v 
oin  12  ( qnd )  =  qnd 
condition-mode  outout  interface  hardware  to  issue 
s  i  ana  1  :  x  9 

device:  intel  8212  8-bit  i  /o  oort,  ic  20 
connec  t  ions: 
Dins  3,5,7,9,16,13,20,22  (di(l:8))  =  db(l:8) 
Dins  4,6,8,10,15,17,19,21  (do (1:8))  =  x9(l:8)  ;if 
8  are    req 

Din   2  (md)  =  +5v 
Din  11  (stb)  =  qni 
Din   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  1) 
oin  24  ( vcc  )  =  *5v 
Din  12  (gnd )  =  qnd 
condition  node  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

device:intel  8212  8  bit  i /o  oort,ic  21 
connec  t  i  ons : 
Dins  3,5,7,9,  16,  18,20,  22(di  (  1  :8)  )  =  r\EYTHA(l:8) 
rema i  nder  t  o 


o  round 


oins  4, 6, 8, 10, 15, 17, 19, 21( do (1:8))  =  db(l:8) 

oin  2  (md )  =  qnd 

oin  11  (  s t  o  )  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  1) 

oin  13  (ds?)  =  i nD  .and.  doin 
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Din  24  =  t5v 
pin  12  =  gnd 
condition  nole  inout  interface  hardware  to  s  *»  n  s  e 
signal  KEYCHA 

devicerintel  8212  8  bit  i /o  oort»  ic  22 
c  onnec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di (9:16) )  =  KEYCHA(9rl6) 
remainder  to 

qround 

oins  a, 6, 8, 10, 15, 1 7, 19, 21 (do(9: 1 6) )  =  dbOrlb) 
oin  2  (md  )  =  and 
o  i  n  11  (  s t  o  )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  1) 
oin  13  (ds?)  =  i nD  .and.  doin 
oin  24  =  ♦5v 
oin  12  =  and 
condition  -node  inout  interface  hardware  to  sense 
signal  KEYCHA 

devicerintel  8212  8  bit  i /o  oort,ic  23 
c  onnec  t  ions: 
oins  3,5,7,9, 16, 18, 20, 22(di (1:8))  =  KEYCHA(1:8) 
remainder  to 

ground 

oins  a, 6, 8, 10, 15,17,19,21(do(t :8))  =  db(l:8) 

Din  2  ( md )  =  gnd 
oin  11  ( st  o  )  =  and 

pin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  2) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  24  =  +  5v 
oin  12  =  g  n  d 
condition  -node  inout  interface  hardware  to  sense 
signal  KEYCHA 

devicerintel  8212  8  bit  i /o  oort^ic  24 
connec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di (9:16))  =  KEYCHA(9rl6) 
r ema  i nde  r  to 


ground 


pins  4,6,8, 10, 15, 17,19,21 (do(9: 16))  =  db(9:l6) 

oin  2  ( md  )  =  gnd 

oin  11  (  s  t  o  )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a ( 8 :  1 5 )  value  2) 

oin  13  (Js?)  =  ino  .and.  doin 

oin  24  =  >5v 

Din  12  =  gnd 
16  oit  outDjt  port  comoosed  of  two  8  bit  oorts 
xl7  is  for  low  order  Oyte 
x25  is  for  high  order  byte 
condition-mode  outout  interface  hardware  to  issue 
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s  i  gna 1  :  x 1 7 

device:  intel  8212  8-bit  i /o  port,  ic  25 
connec  t ions: 
oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db ( 1 : 8 ) 
pins  4,6,8,10,15,17,19,21  (do (1:8))  =  x  17 (1:8)  7 i f 
8  are  req 

Din   2  ( md )  =  +5v 
Din  11  (stb)  =  qnd 
pin   1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  2) 
pin  2a  ( vcc )  =  +5v 
pin  12  ( g  n  d )  =  g  n  d 
condition-mode  outout  interface  hardware  to  issue 
signal:  x  2  5 

device:  intel  8212  8-bit  i /o  oort,  ic  26 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  ( d i (1:8))  =  db(l:8) 
Dins  4,6,8,10,15,17,19,21  (do(l:8))  =  x25(l:8)  ;if 
8  are  req 

Din   2  ( md )  =  +  5v 
Din  11  (stb)  =  qnd 
Din   1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a (0:7)  value  3) 
oin  2  4  (vcc)  =  ♦  5  v 
oin  12  (gnd)  =  and 
condition  node  input  interface  hardware  to  sense 
siqnal  <EYCHA 

device:intel  8212  8  bit  i /o  oort,ic  27 
connec  t  i  ons : 
pins  3,5, 7,9, 16, 18,20, 22(di  (1  :8)  )  =  KEYCHA(1:8) 
remainder  to 

around 

oins  4,6,8, 10, 15, 1 7, 19,21 (do( 1 :8) )  =  db(l:8) 
oin  2  (md )  =  qnd 
oin  11  ( st  o )  =  qnd 

Din  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  3) 
pin  13  (ds?)  =  i no  .and.  doin 
Din  24  =  +5v 
oin  12  =  qnd 
condition  -node  inout  interface  hardware  to  sense 
signal  KEYCHA 

device:intel  8212  8  bit  i /o  oort,ic  28 
connec  t  i  ons : 
Dins  3,5,7,9, 16, 18,20, 22(di  (9: 16)  )  =  KEYCHA(9:16) 
rsma  i  nder  t  o 


ground 


oins  4,6,8, 10, 15, 1 7, 19,21 (do(9: 16) )  =  db(9:l6) 
pin  2  (md )  =  qnd 
pin  11  ( st  o )  =  qnd 
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oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  3) 
oin  13  Ms2)  -     i  np  .and.  doin 
oi  n  24  =  *5v 
Din  12  =  qnd 
condition  -node  incut  interface  hardware  to  sense 
Siqnal  KEYCHA 

devicerintel  8212  8  bit  i /o  oort»ic  29 
eonnec  t  i  ons : 
oins  3*5,7,9,16, 18,20, 22(di (1:8) )  =  KEYCHA(l:8) 
remainder  to 

ground 

oins  4,6,8, 10, 15, 17, 19, 21 (do( 1 : 8) )  =  db(l:8) 
Din  2  ( md)  =  qnd 
oin  11  (  s t  0 )  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  4) 
oin  13  (  d  s  2  )  =  inD  .and.  doin 
oin  24  =  +5v 
oin  12  =  qnd 
condition  no^e  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

devicerintel  8212  8  bit  i /o  oort,ic  30 
c  onnec  t  ions: 
oins  3,5,7,9, 16, 18,20, 22(di  (9:  16))  =  KEYCHA(9:16) 
r ema  i  nder  t  o 

ground 

oins  4, 6, 8, 10, 15, 17,19,21( do (9:16))  =  db(9:16) 

oin  2  (md)  =  qnd 
oin  11  (stD)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  a) 
oin  13  (ds2)  =  i no  .and.  doin 
oin  2U  =  +5v 
oin  12  =  qnd 
16  oit  outDJt  oort  comDosed  of  two  8  bit  ports 
x33  is  for  low  order  Oyte 
x41  is  for  high  order  byte 
condition-mode  output  interface  hardware  to  issue 
s  i  qnal  :  x  33 

device:  intel  8212  8-bit  i /o  oort,  ic  31 
eonnec  t  i  ons : 
Dins  3,5,7,9,16,19,20,22  (di(l:8))  =  db(l:8) 
pins  4,6,9,10,15,17,19,21  (do (1:8))  =  x 33(1:8)  ;if 
8  are  reo 

pin   2  (mj)  =  +5v 
pin  11  (stb)  =  qn  1 
Din   l  (dsl-bar)  =  wr-bar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  4) 
oin  24  ( vec )  =  +5v 
pin  12  (qnd)  =  qnd 
condition-mode  outout  interface  hardware  to  issue 
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s  i  qnal 


xai 
dev  ice: 
connect  i 

oins  3 , 
oins  a , 


8  are  req 


p  i  n 
d  i  n 
d  i  n 
Di  n 
p  i  n 
d  i  n 
lb  bit 


s  i  ana  1 


? 

1  1 

1 

13 

2a 
12 
ou 
xH9     i 
x57  i 
condition 
xa9 
dev  ice: 
connec  t  i 
oins  3, 
pins  a , 


.  and .  ( decode 


8  are  r  so 


2 
1  1 

1 
13 
2a 
12 


s  i  gna  1  : 


p  l  n 

p  i  n 

p  i  n 

p  i  n 

pi  n 

d  i  n 
condi t  i  on 
x57 
device: 
connec  t  i 

oins  3 , 

pins  1» 


intel  8212  8-bit  \/o    oort 
3ns  : 

5, 7,9, lb, 18,20,22  (di (1:8 
6,3,10,15,17,19,21  (dod  : 

(Tlj)   =  +  5v 

(  S  t  b)  =  qnd 

(dsl-bar)  = 

(ds2)  =  out 

( vcc )  =  *5v 

(and )  =  and 

tojt  oort  co-noosed  of  two 

s  for  low  order  oyte 

s  for  high  order  byte 

-mode  output  interface  ha 

intel  8212  3-bit  i /o  port 
ons  : 

5,7,9, 16, 18,20,22  (di (I  :8 
6,3, 10, 15, 17, 19,21  (do(  1  : 


(md)  =  +  5v 
(stb)  =  gnd 
(dsl-bar)  = 
(ds?)  =  out 
( vcc )  =  +5v 
(gnd)  =  and 
-mo"ie  outout 


,  ic  32 

)  )  =  db( 1 :8) 

8  )  )  =  x  a  l  ( i :  a )  ;  i  f 


a(0:  7)  val ue  5) 

8  Pit  do  r t  s 

rdwa  re  to  issue 

,  ic  33 

) )  =  db(l :8) 

8) )  =  x49(  1:8)  ;  i  f 


^r-bar 

. and .  ( decode 


a(0 : 7)  value  6) 


interface  hardware  to  issue 
8212  8-bi  t  i  /o  oort ,  i  c  3a 


i  n  t  e 

ons  : 

5,7,9, 16, 13,20,22  (di (1 :8 

6,3,10,15,17,19,21  (dod  : 


)  )  =  db(l :8) 

8  )  )  =  x  5  7  (  1  :  8  )  ;  i  f 


8  are    req 


16 


o  i  n 
d  i  n 
o  i  n 
o  i  n 
o  i  n 
p  i  n 
Oi  t 


2 
1  1 

1 
13 

2a 
12 
ou 


w  r  -  0  a  r 

.and.  (decode 


s  i  gnal 


8  are 


x65  i 
x73  i 

C  ond  i  t  i  on 
:  x65 

device: 
connec  t  i 
oins  3 , 
Dins  a , 
req 


(md)  =  +  5v 

(stb)  =  qnd 

(dsl-bar)  = 

(ds2)  =  out 

(vcc)  =  +5v 

(qnd)  =  gnd 

tout  oort  coTioosed  of  two 

s  for  low  order  oyte 

s  for  high  order  bvte 

-mode  outDut  interface  ha 


a(0:  7)  val ue  7) 


8  o  i  t  Dorts 


rdware  to  issue 
8212  8-bit  i/o  oort,  ic  35 


intel 

ons : 

5,7,9,16,1 3,20,22  ( di (1:8 

6,8,10,15,17,19,21  (do( 1 : 


) )  =  db( 1 :8) 

8))  =  x65(l :8)  ; i  f 


l  a  l 


s  i  gna ) 


D 
O 
PI 

d  i 
d  i 

di 
cond 
x73 
dev 

COn 
D 


n   2  (md)  =  +  5v 

n  11  (stb)  =  gnd 

n   1  (dsl-bar)  =  wr-bar 

n  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  ft) 

n  24  (vzc)    =  +  5v 

n  1 2  (gnd)  =  qnd 

i  t:  ion-mode  outout  interface  hardware  to  issue 


ft  are  req 


16 


o 

o 

0 

DI 

DI 

o  i 

o 


ice: 
nee  t  i 

ns  3 , 
ns  a, 


2 
1  1 

1 
13 

24 
l? 


s  i  ana  1 


c  ond 

x81 

dev 

con 

o  i 

di 


are  rea 


n 

n 

n 

n 

n 

n 

it  ou 

x81  i 

x89  i 

i  t  i  on 

ice: 
nee  t  i 
ns  3 , 

ns  a, 


s  i  ana  1 : 


OI 

pi 
oi 
Di 
d  i 
Di 

cond 

x89 
dev 
con 
Di 


8  are  req 


lb 


D 

DI 
Di 
Di 

oi 
d  i 

D 


2 
1  1 
1 
13 
24 
\2 
i  t  i  on 

ice: 
nee  t  i 
ns  3 , 
ns  4, 


2 
1  1 

I 
1  5 
2a 
\2 


n 

n 

n 

n 

n 

n 

i  t  ou 

x97  i 

xl05 


intel  8212  8-bit  i /o  Dort,  ic  36 

ons  : 

5,7,9,16/18,20,22  (di(l:8))  =  db(l:8) 

6,8,10,15,17,19,21  (do (1:8))  =  x73(l:*)  ;if 

(Tld)  =  +5v 

(stb)  =  gnd 

(dsl-bar)  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  9) 

( vec )  =  +  5v 

( and )  =  gnd 

tout    Dort     cofiDosed    of     two    8    bit    ports 

s  for  low  order  oyte 

s  for  high  order  byte 

-mode  outout  interface  hardware  to  issue 

intel  8212  8-bit  i /o  oort,  ic  37 

ons  : 

5,7,9,16,18,20,22  ( d  i  (1:8))  =  db(l:8) 

6,8,10,15,17,19,21  (do (1:8))  =  x81(l:8)  ;if 

(md)  =  +5v 

(stb)  =  gnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  10) 

( vec  )  =  *5v 

(qnd)  =  gnd 

-mode  outDut  interface  hardware  to  issue 

intel  8212  8-bit  i /o  oort,  ic  38 

ons  : 

5,7,9,16,18,20,22  (di(l:ft))  =  db(l:8) 

6,3,10,15,17,19,21  (do(l:8))  =  x 89(1: 8)  ;if 

(md)  =  +5v 

(stb)  =  gnd 

(dsl-bar)  =  wr-Dar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  11) 

( vec )  =  *5v 

(qnd)  =  gnd 

tDut  oort  coTiDosed  of  two  8  bit  oorts 

s  for  low  order  oyte 

is  for  high  order  oyte 


ia2 


condition-mode  o  u  t  d  u  t  interface  hardware  to  issue 
signal:  x  97 

device:  intel  8212  8-bit  i /o  oort,  ic  39 
connec  t  i  ons  : 
oins  1,3,7 ,9,16,18,20,22     (di(l:8))  =  db(l:8) 
oins  a, 6, 5, 10, 15, 17, 19,21  (do(l:8))  =  x97(l:8)  ;if 
8  are  rea 

oin   2     (md)  =  +  5v 
Din  11  (stb)  =  gnd 
oin   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  \2) 
Din  24     (v:c)  =  +  5  v 
oin  1 2     ( gnd )  =  qnd 
condition-mode  outout  interface  hardware  to  issue 
signal:  x 1 05 

device:  intel  8212  8-oit  i /o  Dort,  ic  40 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  ( di (1:8))  =  db(l:8) 
Dins  a, 6, 8, 10, 15, 17, 19,21  (do(l:«))  =  xl05(l:B) 
;  i  f  8  are  req 

Din   2  ( md  )  =  +  5v 
oin  11  (stb)  =  gnd 
Din   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  15) 
Di  n  24  ( vcc )  =  +5v 
oin  12  (gnd)  =  qnd 
16  oit  outDut  oort  comoosed  of  two  8  bit  ports 
xll3  is  for  low  order  byte 
xl21  is  for  hiqh  order  oyte 
condition-mode  outDut  interface  hardware  to  issue 
s  i  gna 1  :  x  1  1  3 

device:  intel  8212  8-bit  i /o  Dort,  ic  a 1 
connec  t  i  ons : 
oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
Dins  U, b, 9, 10, 15, 17, 19,21  (do(l:8))  =  xll3(l:8) 
Jif  8  are  req 

oin   2  (  m  d  )  =  ♦  5  v 
Din  11   (stb)  =  qnd 
oin   1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  la) 
oin  2a  (vcc)  =  *  5  v 
oin  12  (qnd)  =  qnd 
condition-mode  outout  interface  hardware  to  issue 
si  gnal :  x 1 21 

device:  intel  8212  8-bit  i /o  oort,  ic  a2 
connec  t ions: 
Dins  3,5,7,9,16,1^,20,22  (di(l:8))  =  db(l:8) 
Dins  a, o,8, 10, 15, 17, 19,21  (do(l:8))  =  xl21(l:8) 
J  i  f  8  are  reo 

oin   2  (md)  =  +5v 
oin  11  (stb)  =  gnd 


ia3 


s  i  qna 1 


;  i  f  8  are 


2 

1  1 
1 
1  I 
24 
12 


s  i  qna 1 


;  i  f  8  are 


signal 


;  i  f  8  are 


s  i  qna 


pin   1 
Din  13 
oi  n  2a 
Din  12 
16  bit  ou 
xl29 
xl37 
c ond i  t  i  on 
x  129 
-lev  ice: 
connec  t  i 
oins  3  , 
Dins  a , 
req 
d  i  n 
d  i  n 
o  l  n 
d  i  n 
o  i  n 
d  i  n 
condition 
xl  57 
device: 
connect  i 
oins  3 , 
Dins  a , 
req 
d  i  n 
d  i  n 
D  i  n 
D  i  n 
oi  n 
oi  n 
16  bit  ou 
xia5 
xl53 
condi  t  i  on 

xias 

device: 
connec  t  i 

Dins  3 , 

Dins  a  , 

req 

d  i  n 

D  i  n 

d  i  n 

oi  n 

pi  n 

oi  n 
condi  t  i  on 
x!53 


2 
1  1 

1 
13 
2a 
12 


2 

1  1 

1 

1  5 

2a 
12 


(ds 1 -bar )  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0 

(vcc )  =  +  5v 

( qnd )  =  qnd 

tojt  Dort  comoosed  of  two  8  b 

is  'or  low  order  bvte 

is  for  hiqh  order  oyte 

-mode  outout  interface  hardwa 

intel  8212  8-bit  i /o  Dort,  ic 
ons : 

5, 7,9, lb, 18,20,22  (di (1 :8) )  = 
6,3,  10,15,17, 19,21  (ao( 1:8)) 

(md)  =  +5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0 

( v:c )  =  *5v 

(qnd)  =  qnd 

-mode  outout  interface  hardwa 

intel  *212  8-bit  i /o  Dort,  ic 
ons  : 

5, 7,9, 16, 13,20,22  (di (1 :8))  = 
6,3,10,15,17,19,21  (do( 1 :8) ) 

(md)  =  +5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0 

( vcc  )  =  +5*/ 

(qnd )  =  ind 

tojt  oort  comoosed  of  two  8  o 

is  for  low  order  byte 

is  for  hiah  order  ovte 

-mode  outout  interface  hardwa 

intel  3212  3-bit  i /o  oort,  ic 
ons : 

5, 7,9, 16, 18,20,22  (di  (1:8)  )  = 
6,3,10,15,17,19,21  (do( 1 :8) ) 

(md)  =  +5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0 

(vcc)  =  +  5v 

(qnd)  =  qnd 

-mode  outout  interface  hardwa 


: 7)  val  ue  15) 

it  oorts 

re  to  issue 

43 

dh( l :8) 
=  xl29( i :B) 


: 7)  val ue  lb) 

re  to  issue 

aa 

db( 1 :8) 
=  x  137( 1 :«) 


: 7)  val ue  17) 

it  oorts 

re  to  issue 

45 

db( 1 :8) 
=  xl45( 1  :8) 


: 7)  val ue  18) 


re  to  issue 


1  44 


; i  f  8  are 


device: 
connec  t  i 

Dins  3 , 

Dins  a , 

req 

d  i  n 


intel  8212  8-bit  i /o  oort,  ic  46 
ons  : 

5,7,9, 16, 13,20,22  (di (1:8))  = 
6,9,  10, 15,  17, 19,21  (do(l :8) ) 


db(l:8) 

=  xl53(  1  :8) 


d  i  n 
d  i  n 
pi  n 
o  i  n 
D  i  n 
bi  t 


s  i  ana  1 


}  i 


f  8  are 


s  i  qna 1 


;  i  f  8  are 


2 

1  1 
1 
13 
2a 
12 
16  bit  ou 
xl6l 
xl69 
C  ond  i  t  i  on 
xl61 
dev  i  ce : 
connect  i 
o  i  ns  3 , 
Dins  a  , 
reo 
d  i  n 
d  i  n 
d  i  n 
d  i  n 
o  i  n 
D  i  n 
condition 
xlfc>9 
dev  i  ce : 
connec  t  i 
Dins  3 , 
o  i  ns  a , 
req 
D  i  n 
D  i  n 
D  i  n 
d  i  n 
d  i  n 
oi  n 
16  bi  t 


w  r-0  a  r 

. and .  ( decode 


(mj)  =  +  5v 

(stb)  =  and 

(dsl-bar)  = 

(ds2)  =  out 

(\/zc)    -    +  5v 

(gnd)  =  and 

tout  port  conDosed  of  two 

is  for  low  order  byte 

is  for  hiqh  order  oyte 

-mode  outojt  interface  ha 

intel  8212  8-bit  i /o  oort 
ons  : 

5,7,9,  16, 1^,20,22  (di (1 :8 
6,3, 10, 15, 17, 19,21  (do( 1 : 


a(0:7)  value  19) 

8  bit  do  r t  s 

rdwa  re  to  issje 

,  i  c  47 

))  =  Jb(l:8) 
8)  )  =  xl61  ( 1 :8) 


2 
1  1 

1 
13 
2a 
12 


(nd)  =  +5v 

(stD)  =  qnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  20) 

( vcc )  =  +  5v 

(gnd)  =  qnd 

-mode  outout  interface  hardwa 


2 
1  1 

1 
13 

2a 
12 
ou 


xl77 
xl85 


c  ondi  t  i  on 
signal:  x 1 7  7 

device: 
connec  t  i 
Dins  3 , 
Dins  a , 
?if  8  are  req 

Din   2  ( md )  =  +5v 


intel  8212  8-bit  i /o  oort 
ons : 

5,7,9, 16, 19,20,22  (di (1:8 
6,9,10,15,17,19,21  (do( 1 : 

(md)  =  *5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-bar 

(ds2)  =  out  .and.  (decode 

(vcc  )  =  +5v 

(gnd)  =  qnd 

tout  oort  co^oosed  of  two 

is  for  low  order  byte 

is  for  hiqn  order  oyte 

-mode  outDut  interface  ha 


,  l  c 

)  )  = 

8)  ) 


re  to  issue 
a8 
db(l:8) 

=  xl69(l :8) 


intel  8212  8-bit  i /o  oort 
ons : 

5,7,9, 16, 18,20,22  (di (1 :3 
6,3, 10, 15, 17, 19,21  (do( 1 : 


a(0:  7)  val ue  21 ) 

8  bit  oort  s 

rdwa  re  to  issue 
,  i  c  a9 

)  )  =  db( 1 :8) 

8)  )  =  x  1  77 (  1  :H) 


ia5 


Din  11  (stb)  =  gnd 
Din   1  (dsl-bar)  =  wr-oar 

Din  13  (  d  s  2  )  =  out  .and.  (decode  a(0:7)  value  22) 
oi  n  24  (vcc  )  =  +  5v 
oin  12  (qnd )  =  gnd 
condition-mode  output  interface  hardware  to  issue 
signal:  x 1 85 

device:  intel  8212  8-bit  i /o  oort,  ic  50 
connec  t ions: 
Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
oins  4,6,3,10,15,17,19,21  (do(l:8))  =  xt85(l:8) 
; i  f  8  are    req 

oin   2  (ti  j)  =  ♦  5v 
Din  11  (stb)  =  gnd 
oin   1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  23) 
Din  24  (vcc )  =  +5v 
Din  12  ( qnd )  =  qnd 
condition  Tiode  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

device:intel  8212  8  oit  i / o  o  o  r  t  ,  i  c  51 
connect  i  ons  : 
Dins  3,5,7,9, 16, 18,20, 22(di ( 1 :8) )  =  KEYCHA(1:8) 
r  ema  i  nrie  r  to 

ground 

oins  4,6,8, 10, 15, 17, 19,21 (do( 1 :8))  =  db(l:8) 
Din  2  ( md )  =  qnd 
oin  11  (sto)  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  5) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  24  =  +  5v 
oin  12  =  gnd 
condition  -node  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

device:intel  8212  8  bit  i /o  oort,ic  52 
connec  t  i  ons  : 
oins  3,5,7,9, lb, 18,20, 22(di  (9:  16)  )  =  KEYCHA(9:16) 
remainder  to 


qround 


oins  4, 6, 8, 10, 15, 17, 19, 21( do (9 :1b))  =  db(9:l6) 
oin  2  (md )  =  qnd 
oin  11  (sto)  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  5) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  24  =  *5v 
oin  12  =  qnd 
16  oit  outout  oort  coTioosed  of  two  8  bit  ports 

xl93  is  for  low  order  byte 

x201  is  for  high  order  Dyte 


146 


condition-mode  outDjt  interface  hardware  to  issue 
s  i  qna 1  :  x 1 93 

device:  intel  8  212  8-bit  i /o  oort,  ic  53 
connec  t  i  ons : 
oins  3,5,7,9,16,19,20,22  (di(l:8))  =  db(l:8) 
Dins  a, 6, 8, 10, 15, 17, 19,21  (do(l:«))  =  xl93(l:8) 
J  i  f  8  are  req 

Din   2  (md  )  =  +  5v 
Din  11  (stb)  =  and 
oin   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  2  '4 ) 
Din  2a  ( vcc  )  =  +  5v 
oin  12  (qnd)  =  qnd 
condition-mode  output  interface  hardware  to  issue 
siqnal:  x  20  1 

device:  intel  8212  8-bit  i /o  oort,  ic  5a 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
Dins  4,6,9,10,15,17,10,21  (do(l:8))  =  x201(l:8) 
;  i  f  8  are  req 

Din   2  (  m  d  )  =  +5v 
oin  11  (stb)  =  qnd 
oin   1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  25) 
Din  24  ( vcc )  =  +5v 
oin  12  ( qnd )  =  qni 
condition  node  inout  interface  hardware  to  sense 
siqnal  <EYCH4 

device:intel  8212  9  oit  i/o  oort,ic  55 
c  onnec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di  (  1  :8)  )  =  «EYCHA(1:8) 
r  ema  i  nder  to 

around 

Dins  a, 6, 8, 10, 15, 17, 19,21 CdoCl :8) )  =  dn(l:8) 
oin  2  ( md )  =  and 
oin  11  ( s t  o  )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  6) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  2a  =  +5v 
Din  12  =  qnd 
condition  mode  inout  interface  hardware  to  sense 
siqnal  KEYCHA 

device:intel  3212  8  bit  i/o  oort »  ic  5b 
c  onnec  t  i  ons : 
oins  3,5,7,9, 16,  18,20, 22(di  (9:  16)  )  =  KEYCH4(9:16) 
r  ?ma  i  nder  t  o 


around 


oins  a, 6, 8, 10, 15, 17, 19,21 (do(9: 16) )  =  db(9:lb) 
oin  2  ( md )  =  qnd 


ia7 


oi  n  11  ( st  o  )  =  gnd 
Din  1  (ds 1 -bar )  =  . 
oin  13  (  ds2 )  =  i  no 
oi  n  2a  =  t5v 
oin  12  =  gnd 
lb  oit  outojC  Dort  c 
x  209  is  for  low 
x2  1  7  is  for  high 
condition-mode  outoj 
s  i  gna  1  :  x209 

device:  intel  821? 
connec  t  i  ons : 
oins  3,5,7,9,16,19 
Dins  a, 6, 9, 1 0, 15,  1 
?  i  f  9  are  req 

(md)  =  *5v 
( s t  b )  =  gnd 
(dsl-bar)  = 
(ds2)  =  out 
(vcc  )  =  +5v/ 
(gnd)  =  gnd 
outou 


not  .  (decode  a ( 8 : 1 
.and.  doin 


5 )  value  6 ) 


OTioosed  of  two  8  oit  ports 
orde  r  byte 

order  oyte 
t  interface  hardware  to  issue 

8-bit  i/o  Dort,  ic  57 


o  l  n 
Di  n 
D  i  n 
o  i  n 
oi  n 
D  i  n 


2 
1  1 

1 
1  3 

2a 

12 

c  ond  i  t  i  on-mode 
signal:  x  2 1 7 

device:  intel 
connec  t i  ons: 
Dins  3,5,7,9,16,19 
Dins  '4,6,9,10,15,1 
J  i  f  8  are    rea 

(md)  =  *5v 
(sto)  =  gnd 
(dsl-bar)  = 
(ds2)  =  out 
(vcc )  =  +5v 
( gnd )  =  gnd 


,20,22  C  di (1:8))  = 
7,  1^,21  Hod  :8)  ) 


h r-oa  r 

. and .  ( decode  a ( 0 


db( 1 :*) 

=  x209( 1 :9) 


t  interface  hardwa 
82 1 2  8-b  it  i / o    oort ,  i  c 


,20,22  ( di (1:8))  = 
7,  19,21  (do(l :8) ) 


: 7)  val ue  26) 

re  to  issue 
58 

db(l :«) 
=  x217( 1 :8) 


2 
I  1 

1 
13 
2 '4 
12 


D  i  n 
Di  n 
oi  n 
d  i  n 
d  i  n 
D  i  n 

16  oit  outDut  Dort  c 
x225  is  for  low 
x233  is  for  high 
condition-mode  outou 
s  i  gna 1  :  x225 

devi  ce:  intel  9212 
connect  i  ons: 
Dins  3,5,7,9,16,18 
Dins  a, 6, 9,  10,  15, 1 
r  i  f  8  are  req 

oin  2  ( m  d)  =  +5v 
oin  ll  (stb)  =  gnd 
Din  l  ( ds l -bar )  = 
oin  13  (ds2 )  =  out 
oin  2a  ( vcc )  =  +  5v 
oin  12  (gnd)  =  gnd 


w  r-oa  r 

. and .  ( decode  a  (  0 


:7)  val je  27) 


omoosed  of  two  8  bit  Dorts 
order  b v t  e 

order  oyte 
t  interface  hardware  to  issue 

9-bi  t  i /o  oort ,  i  c  59 


,20,22  (di  (  I  :8)  )  = 
7, 19,21  (do(l :8)  ) 


w  r-oa  r 

. and .  ( decode  a ( 0 


db( 1 :8) 
=  x225(l:6) 


:  7  )  value  2d) 


condition-mode  output  interface  hardware  to  issue 


1/4  8 


s  i  qna  1 


;  i  f  8  are 


s  i  gna  1 


;  i  f  8  are 


signal 


;  i  f  8  are 


signal 


;  i  f  8 


x233 
device: 
connect  i 
Dins  3, 
o  i  ns  4 , 
rea 

Din  2 
oi  n  11 
o  i  n  1 
Din  13 
Din  24 
Din  12 

16  0  i  t  o  u 

x24i 

x249 
cond  i  t  i  on 
x241 
dev  i  ce : 
connec  t  i 
oins  3 , 
oins  4  , 
req 

oin   2 
o  i  n  11 
oin   1 
Din  13 
Din  24 
Din  12 
Condi  t  i  on 
x249 
dpvice: 
connec  t  i 
Dins  3 , 
oins  4 , 
req 
Din   2 
Din  11 
Din   1 
oin  13 
Di  n  2a 
oin  12 
16  bit  ou 
x257 
x265 
condition 
:  x2S7 

dev  ice: 
connec  t  i 
oins  3 , 
oins  a , 
are  req 


intel  8212  8-bit  i /o  port,  ic 
3ns  : 

5, 7,9, 16, 18,20,22  (di ( 1 :8) )  = 
6,8,10,15,17,1^,21  Mo (1:8)) 

(md)  =  +  5v 

(stb)  =  gnd 

( ds 1 -bar )  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0 

( vcc )  =  +  5v 

(gnd)  =  gnd 

tojt  Dort  cotiDosed  of  two  8  b 

is  for  low  order  byte 

is  for  high  order  ovte 

-mode  outDut  interface  hardwa 

intel  8212  8-bit  i  /  o  Dort,  ic 
ons  : 

5,7,9, 16, 18,20,22  (di (1:8))  = 
6,8,10,15,17,19,21  (do(  1 :8) ) 

(md)  =  +5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0 

(vcc)  =  +  5v 

( and)  =  qnd 

-mode  outout  interface  hardwa 

intel  8212  8-bit  i /o  Dort,  ic 
ons  : 

5,7,9,16,18,20,22  (di (1:8))  = 
6,8,10,15,17,19,21  (do(l :8) ) 

(md)  =  *5v 

(stb)  =  qn  j 

(ds 1 -bar )  =  w  r-oar 

(ds2)  =  out  .and.  (decode  a(0 

( vcc )  =  +5v 

(gnd )  =  gnd 

tout  oort  coTDosed  of  two  8  b 

is  for  low  order  byte 

is  for  hiah  order  oyte 

-mode  outout  interface  hardwa 

intel  8212  8 -bit  i/o  oort,  ic 
ons  : 

5, 7,9, 16, 18,20,22  (di ( 1 :8) )  = 
6,8,10,15,17,19,21  (do (1:8)) 


60 

db(l :8) 
=  x233( 1 :8) 


: 7)  val ue  29) 

it  ports 

re  to  issue 

ol 

db( 1 :8) 
=  x241 (1:8) 


: 7)  val ue  30) 

re  to  issue 
62 

db(  1  :8) 

=  x249( i :H) 


:  7)  value  31 ) 

it  d  o  r  t  s 

re    to  issue 

63 

db(l  :8) 
=  x257( 1 :8) 
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DI 

d  i 
Di 
o  i 
o  i 
oi 
c  ond 

s  i  qna 1 :  x  265 

dev 

con 

oi 

d  i 

; i  f  8  are  re 
oi 
oi 
oi 
d  i 

Dl 

Di 

16  D 


s  i  qna 1 


cond 

x273 

dev 

con 

oi 


2 
1  1 

1 
13 

24 

12 

ition 

ice: 
nee  t  i 

ns  3 , 

ns  a, 

3 

2 
1  1 
1 
13 
2a 
12 
ou 
x273 
x281 
ition 


(md)  =  +  5v 
(stb)  =  qnd 
(dsl-bar)  = 
(ds2)  =  out 
(vec)  =  *5v 
(and)  =  q  n  d 
-mode  outDut 


wr-sar 

. and .  ( decode  a ( 0 


:7)  value  32) 


interface  hardware  to  issue 
8212  8-bit  i/o  oort,  ic  6a 


n 
n 
n 
n 
n 
n 
i  t 


i  nt  e  1 

ons : 

5,7,9, 16, 13,20,22  (di ( 1:8) )  = 

6,3,10,15,17,19,21  (clod:  8)) 

(md)  =  +  5v 

(stb)  =  gnd 

(dsl-bar)  = 

(ds2)  =  out 

(vec)  =  *5v 

( qnd )  =  qnd 

tout  port  composed  of 

is  for  low  order  byte 

is  for  hiah  order  oyte 

-mode  output  interface  hardwa 


db( 1 :8) 
=  x265( 1:8) 


w  r-o  a  r 

. and .  ( decode 


a(0:  7)  val ue  33) 


two  8  bit  ports 


re  to  issue 
i/o  oor t ,  i  c  65 


;  i  f  8  ara 


s  i  qna 1 


;  i  f  8  are 


oi 

re 

pi 

p  i 

o  i 

pi 

d  i 

p  i 

cond 

x281 

dev 

con 

oi 

pi 

re 

pi 
oi 
pi 
pi 

oi 
pi 

0 


ice:  i  ntel  8212  8-bi  t 
nee  t  i  ons : 

ns  3,5,7,9,16,18,20,22  ( di (1:8))  = 
ns  a, 6, 3, 10, 15, 1 7, 19,21  (do(l:8)) 
a 

n  2  (md)  =  f-5v 
n  11  (stb)  =  gnd 
n  1  ( ds 1 -bar )  = 
n  13  (ds2)  =  out 
n  24  (vec)  =  +5v 
n  1 2  (qnd )  =  gnd 
-mode  output 


db(l :8) 
=  x  2  7  3  ( 1  :  8  ) 


w  r-oa  r 

. ani .  ( decode  a ( 0 


: 7)  val ue  3a) 


16 


ition 

ice: 
nee  t  i 
ns  3, 

ns  a, 

q 

2 
1  1 

1 
13 

2a 

12 
ou 


interface  hardware  to  issue 
1  8212  8-bi  t  i /o  oort ,  i c  66 


n 
n 
n 
n 
n 
n 
i  t 


x289 
x297 


i  n  t  e 

ons  : 

5,7,9, 16, 13,20,22  (di  (1  :8)  )  = 

6,3,10,15,17,19,21  (do( 1 :8) ) 


(md)  =  *5v 

(stb)  =  qnd 

(dsl-bar)  = 

(ds2)  =  out 

(vec)  =  +5v 

(gnd)  =  qnd 

tDjt  port  comoosed  of 

is  for  low  order  byte 

is  for  hiqh  order  oyte 


db(l :8) 
=  x281 (1:8) 


wr-oar 

.  and .  ( decode 


a(0:7)  value  35) 


two  3  bit  oorts 
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c  ond  i  t  i 
s  i  goal  :  x289 

device 
connec 
Dins 
oi  ns 
?  i  f  ft  are  req 
d  i  n 
d  i  n  1 
o  i  n 
Din  1 
Din  2 
Din  1 
condi  t  i 
signal:  x  297 

dev  i  ce 
connec 
Dins 
Dins 
; i  f  8  are  req 
D  i  n 
oin  1 
d  i  n 
oin  1 
oin  2 
Din  1 
1  6  oi  t 
x30 
x31 
c  ondi  t  i 
s  i  qna 1  :  x  305 

de v  i  ce 
connec 
Dins 
oins 
',  i  f  8  are  req 
d  i  n 
Din  1 
D  i  n 
Din  1 
Din  2 
oin  1 
condi  t  i 
s  i  qna 1  :  x  3 1 3 

device 
connec 
oins 
Dins 
?  i  f  8  are  req 
Di  n 
Din  1 


on-mode  outout  interface  hardwa 

it  i / o    DOPt»  i  c 


:  intel  8212  8-b 
t  i  ons  : 

3,5, 7,9,16,18,20 
a, 6, 5, 10, 15,  1  7,  1 

2  (tid)  =  +5v 
1  ( st b)  =  qnd 

1  ( ds 1 -bar )  =  wr 

3  (ds2)  =  out  .a 
a  (vcc)  =  +5v 

2  ( qnd )  =  qnd 

qn-mode  output  interface  hardwa 

8212  8-bi  t  i /o  oort ,  i  c 


,22     f  di  (1:8))  = 
9,21  (do(l:8)) 


-oar 

nd.  ( decode  a ( 0 


re  to  issue 

67 

db( 1 :8) 
=  x289(l :8) 


,22    (di (1 :8) )  = 
9,21  (dot  1 :8) ) 


-bar 

nd .  ( decode  a ( 0 


:  intel 

t  i  ons : 

3,5, 7,9, 16, 18,20 

a, 6,3, 10,  15,  1  7,  1 

2  (md)  =  +  5v 
1  (stb)  =  qnd 

1  (ds 1 -bar  )  =  wr 

3  (ds2)  =  out  .a 
a  (vcc )  =  +5v 

2  (qnd )  =  qnd 
ou t  d jt  port  :ono 

'5  is  for  low  ord 

3  is  for  hiqh  or 
on-mode  outout  i 

:  intel  8212  3-b 
t  i  ons  : 

3,5, 7,9, 16, 13,20 
a,6,B, 10, 15,  17,  1 

2  (md)  =  +  5v 
1  (stb)  =  qnd 

1  ( ds 1 -bar )  =  wr 

3  (ds2 )  =  out  .a 

4  ivzc)    =  f5v 

2  ( qnd )  =  qnd 
on-mode  outDJt  interface  hardwa 

it  i /o  Dor t  ,  i  c 


: 7 )  value  36 ) 

re  to  issue 

68 

qb(l :8) 
=  x297(l :B) 


osed  of  two  8  b 
er  bvte 
de  r  Dyte 
nterface  hardwa 

it  i / o    do  r t  ,  i  c 

,22    (di  ( 1 :8)  )  = 
9,21  (do(  1  :8)  ) 


-bar 

nd .  ( decode  a ( 0 


:7)  value  37) 

it  oor t  s 

re  to  issue 
69 

db( 1 :8) 
=  x305(l :8) 


:  intel  8212  8-b 
t  i  ons : 

3,5, 7,9, 16, 18,20 
a, 6, 3, 10, 15, 17,  1 

2  (md)  =  +5v 
1  (stb)  =  and 


,22    ( d  i  (1:8))  = 

9,21  (do(l:8)) 


:7)  value  38) 

re  to  issue 

70 

db( 1 :ft) 
=  x31 3( 1 :8) 
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Din   1  ( ds 1 -ba  r ) 
Din  13  (ds2 )  =  ou 
Din  24  (v:c)  =  +5 
Din  12  ( qnd)  =  qn 
16  bit  out  out  Dor t 
x  32 1  is  for  low 
x  529  is  for  hia 
condition-Tode  outo 
s  i  qna 1  :  x  32 1 

dev  ice:  i  ntel  8212 
connec  t ions: 
oi  ns  3,5, 7,9, 16, 1 
Dins  4,6,3,10,15, 
;  i  f  8  are  req 

(md)  =  +  5v 
( St  D )  =  qn 
(dsl-bar) 
(ds2)  =  ou 
(vcc)  =  +5 
=  qn 

OUt  D 


=  w  r-oa  r 

t  .and.  (decode  a(0:7)  value  39) 

v 

d 

cotiDosed    of     two    8    oit    Dorts 

order  b 
h  order 
at  inter 


of  two  8  o 
y  t  e 
Dyte 
face  nardwa 


re  to  issue 
8-b  it  i /o  oor t ,  i  c  7  1 


3,20,22 
17, 19,21 


(di (1:8))  = 
(do( 1 :8) ) 


db(l :8) 
=  x321 ( 1 :8) 


Di  n 
Di  n 
Di  n 
Di  n 
d  i  n 
d  i  n 


2 

1  1 

1 

13 

2a 

12  (qnd) 
c  o  n  d  i  t  i  o  n  -  m  o  d  e 
S  i  qna 1  :  x  329 

device:  i  n t  e 1 
connect  i  ons: 
oins  3,5,7,9,16,1 
oi  ns  a, 6, 8,  1 0,  15, 
; i  f  8  are    req 

(md)  =  +5v 
(Stb)  =  qn 
(dsl-bar) 
(ds2)  =  ou 
(vcc)  =  *5 
(qnd)  =  qn 


=  w  r-oa  r 

t  .and.  (decode  a(0:7)  value  40) 

v 

d 

ut  inter 


face  nardwa 
8212  8-b  i t  i /o  oort  ,  i  c 


8,20,22 
17, 19,21 


(di (1 :8)  )  = 
(do(l  :8)  ) 


re  to  issue 

72 

db( 1 :S) 
=  x329( l :8) 


2 
1  1 

1 
13 

2a 
12 


d  i  n 
D  i  n 
Di  n 
oi  n 
d  i  n 
d  i  n 

16  Oit  outDut  oort 
x337  is  for  low 
x3a5  is  for    hig 
condition-mode  outo 
signal:  x  337 

devi  ce:  i  nt el  821 2 
connec  t  i  ons : 
oins  3,5,7,9,16,1 
Dins  a, 6, 3, 10, 15, 
?  i  f  8  are  req 

(md)  =  +  5v 
(stb)  =  qn 
(dsl-bar) 


d 

=  wr-oar 

t  .and.  (decode  a(0:7)  value  41) 

v 

d 

coitoosed    of    two    8    bit     Dorts 

order  b' 
h  order 
u t  inter 


of  two  8  b 
y  t  e 
oy  t  e 
face  nardwa 


re  to  issue 
8-bit  i/o  Dort,  ic  73 


3,20,22 
17,  19,21 


(di  (  1  :8)  )  = 
(do( 1 :8) ) 


db(l :8) 
=  x337(l :8) 


signal : 


2 
1  1 
1 
13  (ds2) 
2a  (vcc) 
12  (qnd) 
c  ondi  t  i  on-mode 

x3a5 


D  i  n 
o  i  n 
oi  n 
d  i  n 
Di  n 
Di  n 


=  ou 
=  t5 
=  qn 
outo 


=  wr-oar 

t  .and.  (decode  3(0:7)  value  42) 

v 

d 

ut  interface  hardware  to  issue 
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device:  intel  8212  8-bit  i /o  oort,  ic  7a 
connec  t  i  ons : 
pins  3,5,7,9,16,18,20,22  (di (1:8))  =  ib(l:8) 
Dins  4,6,3,10,15,17,19,21  (do(l:8))  =  x345(l:8) 
;if  8  are  rea 

Din   2  (md)  =  +  5v 
Din  11  (stb)  =  qnd 
oin   1  (dsl-bar)  =  wr-bar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  43) 
Din  24  ( v:c )  =  +  5v 
oin  12  (gnd)  =  and 
1  o  bit  outout  oort  conoosed  of  two  8  bit  oorts 
x353  is  for  low  order  byte 
x361  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
s  i  gna 1 :  x 353 

device:  intel  8212  8-bit  i /o  Dort,  ic  75 
connec  t ions: 
Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
oins  a, 6, 8, 10, 15, 17, 19, 21  (do(l:8))  =  x353(l:8) 
; i  f  8  are  req 

Din   2  (md)  =  +5v 
oin  11  (stb)  =  gnd 
Din   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  aa) 
oi  n  2a  ( vcc )  =  *5v 
oin  12  ( gnd )  =  gnd 
condition-mode  outout  interface  hardware  to  issue 
signal:  x  36 1 

device:  intel  8212  8-bit  i  /o  oort,  ic  76 
connec  t ions: 
oins  3,5,7,9,16,18,20,22  (di(l:8))  =  db ( 1 : 8  ) 
Dins  a, 6, 3, 10, 15, 1 7, 19,21  (do(l:8))  =  x361(l:8) 
Jif  8  are  reg 

oin   2  ( md )  =  +5v 
oin  11  (stb)  =  gnd 
oin   1  (dsl-bar)  =  wr-bar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  a5) 
oin  24  ( v:c  )  =  +5v 
oin  12  (and)  =  gnd 
condition  mode  incut  interface  hardware  to  sense 
signal  KEYCHA 

device:intel  8212  8  oit  i /o  oort,ic  77 
connec  t  i  ons : 
Dins  3,5, 7,9, 16, 18,20, 22(di  (  1  :8)  )  =  KEYCHA(1:8) 
r ema i  nder  t  o 


ground 


Dins  a, 6, 8, 10, 15, 1 7, 19,21 (do(l :8)  )  =  db(l:8) 
oin  2  (md)  =  gnd 

oin  11  (sto)  =  gnd 
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pin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  7) 
oin  13  (ds2)  =  i no  .and.  doin 
oin  24  =  +  5v 
oin  12  =  qnd 
condition  node  inout  interface  hardware  to  sense 
Signal  <EYCHA 

device:intel  8212  8  hit  i /o  oort,ic  78 
connec  t  i  o*is  : 
oins  3,5,7,9, 16, 18,20, 22(di (9:16))  =  KEYCHA(9:16) 
remainder  to 

ground 

Dins  a, 6, 8,  10,  15,  17,  19,21 (do(9:  16)  )  =  db(9:l6) 
oin  2  ( m  d )  =  and 
oin  11  ( s t  o  )  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  7) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  2a  =  +5v 
oin  12  =  gnd 
lb  Dit  outojt  Dort  conDosed  of  two  8  oit  ports 
x369  is  for  low  order  byte 
x377  is  for  high  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
signal:  x  369 

device:  intel  8212  8-bit  i /o  oort,  ic  79 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  (di(l:8))  =  db(l:8) 
oins  a, 6, 3,  10,  15,  17,  19,21  (do(l:8))  =  x369CU8) 
t  i  f  8  ?>re    req 

Din   2  (md)  =  +5v 
oin  11  (stb)  =  2nd 
oin   1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  ab) 
Din  24  (vcc)  =  +5v 
oin  12  (gnd)  =  gnd 
condition-mode  outout  interface  hardware  to  issue 
signal:  x  377 

device:  intel  8212  8-bit  i/o  oort,  ic  80 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  C  d  i  (1:8))  =  db(l:3) 
Dins  «,6,8,10,15, 17, 19,21  (do (1:8))  =  x377(l:8) 
; i  f  8  are  req 

Din   2  (md)  =  +5v 
oin  11  (stb)  =  gnd 
Din   1  (dsl-bar)  =  wr-oar 

Din  13  (ds2)  =  out  .and.  Mecode  a(0:7)  value  47) 
Din  2 '4  (vcc)  =  +5v 
oin  12  (and )  =  and 
16  bit  output  port  comoosed  of  two  8  bit  oorts 
x385  is  for  low  order  byte 
x393  is  for  high  order  oyte 
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condi 

s  i  qna 1  :  x  385 

dev  i 

COnn 

d  i  n 

D  i  n 

?  i  f  8  are  req 

d  i  n 

d  i  n 

d  i  n 

o  i  n 

d  i  n 

d  i  n 

c  ondi 

s  i  qna 1  :  x  393 

dev  i 

conn 

oi  n 

p  i  n 

?  i  f  8  are  pea 

oi  n 

o  i  n 

d  i  n 

D  i  n 

D  i  n 

o  l  n 

lb  bi 

X 
X 

c  ondi 

si  qnal  :  x40  1 

dev  i 

conn 

d  i  n 

oi  n 

J  i  f  8  are  req 

D  i  n 

D  i  n 

oi  n 

Di  n 

oi  n 

oi  n 

cond  i 

si  qnal  :  x409 

dev  i 

conn 

d  i  n 

d  i  n 

?  i  f  8  are    req 

Di  n 

oi  n 


tion-mode  outojt  interface  hardwa 

8-bit  i/o  oor  t  ,  ic 


ce:  i  ntel  8212 
ec  t  i  ons : 
s  3,5,7,9, 16,  18 
s  4, b, 9, 10, 15,  1 

2  (md)  =  f5v 

11  (stb)  =  qnd 

1  Cdsl-bar)  = 

13  (ds2)  =  out 
2a  (v:c)  =  +  5v 

1 2  (qnd)  =  qnd 
t  i  on-mode  out  du 

ce:  i  nt el  8212 
ec  t  i  ons  : 
s  3,5,7,9, 16,  19 
s  4,6,9,10,15,1 

2  (md)  =  +5v 

1 1  (stb)  =  qnd 

1  (dsl-bar)  = 

13  (ds2)  =  out 
2a  (vcc)  =  +5v 

12  ( qnd )  =  qnd 
t  DUtDut  Dort  c 
aO 1  is  for  low 
a09  i  s  for  h  i  qh 
t  i  on-mode  out  du 

ce:  i  ntel  8212 
ec  t  i  ons : 
s  3,5,7,9, 16, 18 
s  a, 6, 9, 10, 15,  1 

2  (nnd)  =  +5v 

11  (stb)  =  qnd 

1  (dsl-bar)  = 

13  (ds2)  =  out 
2a  (vcc)  =  +5v 

12  ( qnd )  =  qnd 
t  i  on-rnode  out  d  j 

ce:  i  ntel  8212 

ec  t  i  ons  : 

s  3,5,7,9,16,19 

s  a, 6, 9, 10, 15,  1 

2  (nd)  =  f5v 

1 1  (stb)  =  qnd 


,20,22  ( 
7, 19,21 


di (1 :8)  )  = 
(do( 1:8)) 


re  to  issue 
81 

db(l:8) 

=  x385(l :8) 


*i  r-oar 

.and.  (decode  a(0:7)  value  48) 


t  interface  hardwa 
8-bit  i/o  Dort,  ic 


,20,22  ( 
7, 19,21 


di (1  :8))  = 
(do( 1 :8)  ) 


re  to  issue 

82 

db( 1 :8) 
=  x393(l :8) 


* r-b a  r 

.and.  (decode  a(0:7)  value  49) 


o  "noosed 
order  bv 
orde  r  o 
t  i  nt  e  r  f 


of  two  8  b 

t  e 

y  t  e 

ace  hardwa 


-bit  i/o  do  r t ,  i  c 


,20,22  ( 
7,19,21 


di  (1  :9) )  = 
Mod  :8)  ) 


it  Dor t  s 

re  to  issue 

93 

db( 1 :8) 
=  x40l  (1:8) 


w  r-ba  r 

.and.  (decode  a(0:7)  value  50) 


t  i  nt  er  f 

8-bi  t  i  / 

,20,22  ( 
7,19,21 


ace  ha  rdwa 

o  do  r t  ,  i  c 

di  ( 1  :8)  )  = 
(do( 1 :8)  ) 


re  to  issue 

84 

db( 1 :8) 
=  x409( 1:8) 
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pin   1 
pin  13 
pin  2a 
o  i  n  12 
16  bit  ou 
x41  7 
*a25 
condition 
s  i  qna 1  :  x  a  1 7 

dev ice: 
connec  t  i 
pins  3 , 
pins  a , 
?  i  f  8  are  reo, 

o  i  n  2 
o  i  n  11 
o  i  n  1 
o  i  n  13 
pin  2  4 
oi  n  12 
condition 
s  i  qna 1  :  x  425 

dev  ice: 
connect  i 
oins  3 , 
pins  4# 
»  i  f  8  are  req 

Din  2 
Din  11 
o  i  n  1 
Din  13 
oin  2a 
Din  12 
16  d  i  t  ou 
xU33 

xaai 

c  ond  i  t  i  on 
s  i  qna 1  :  x  a33 

device: 
connec  t  i 
Dins  3 i 
Dins  a  , 
> i  f  8  are  reo 

oin  2 
oin  11 
oin  1 
oin  13 
n  i  n  2  a 
oin  12 
condition 
si  qna 1 :  xaai 


(dsl-bar)  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  51) 

( vcc  )  =  +  5v 

(qnd )  =  and 

tDjt  oort  coToosed  of  two  8  bit  ports 

is  for  low  order  b 

is  for  hiah  order 

-mode  outDut  inter 


of  two  8  b 
vte 
oy  t  e 
face  hardwa 


re  to  issue 
8212  8-bi  t  i /o  oort ,  i  c  85 


i  n  t  e  1 

ons  : 

5,7,9, 16, 18,20,22 

6,3, 10,15,17, 19,21 


(md)  =  +5v 
(stb)  =  and 
(dsl-bar)  = 
(ds2)  =  out 
( vcc )  =  ♦ 5v 
(qnd)  =  gni 
-mode  outDut 


(di ( 1 :h)  )  = 
(do( 1  :8)  ) 


db(l :8) 
=  xai 7( 1 :8) 


wr-oar 

.and.  (decode  a(0:7)  value  52) 


interface  hardwa 
821 2  8-bi  t  i /o  oort ,  i  c 


i  nt  e  1 

ons  : 

5,  7,9, 16, 18,20,22 

6,3,10, 15, 17, 19,21 

(md)  =  +  5v 

(stb)  =  qnd 

(ds  1  -bar )  =  wr-oar 

( ds2 )  =  out  . and . 

(vcc)  =  +  5v 

(qnd )  =  and 

tout  Dort  comoosed 

is  for  low  order  b 

is  for  hiqh  order 

-mode  outout  inter 


(di (1:8))  = 
(do(l :8) ) 


re  to  issue 

86 

db( 1 :8) 
=  xa25( 1:8) 


(decode  a(0:7)  value  53) 


of  two  8  D 
vte 
oy  t  e 
face  hardwa 


it  ports 


re  to  issue 
8212  8-bi  t  i /o  oort ,  i  c  87 


i  nt  e  1 

ons : 

5,7,9, 16, 13,20,22 

6,3,  10,  15, 17, 19,21 


(md)  =  +5v 
(stb)  =  qnd 
(dsl-bar)  = 
(ds2)  =  out 
(vcc )  =  *5v 
(qnd)  =  and 
-mode  outDut 


(di (1:8))  = 
(do(l  :8)  ) 


db( 1 :3) 
=  xa33(l :8) 


wr-oar 

.and.  (decode  a(0:7)  value  54) 


interface  hardware  to  issue 
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;  i  f  8  are 


s  i  qna 1 


»  i  f  «  are 


S  i  qna 1 


; i  f  8  are 


s  i  qna  1 


?  i  f  8 


device: 
connect  i 
oins  3 , 
Dins  4 i 
req 

o  i  n   2 
Din  11 
Din   1 
Din  13 
Din  24 
Din  12 
16  D  i  t  ou 
x449 
x457 
condi  t  i  on 
x449 
dev  i  ce : 
connec  t  i 
Dins  3 , 
Dins  4 , 
r  eo 

Din   2 
Din  11 
Din   1 
Din  13 
Din  24 
Din  1  2 
condi  t  i  on 
x457 
dev  ice: 
connec  t  i 
oins  3, 
Dins  4 , 
req 
Din  2 
Din  11 
oin   1 
Din  13 
oi  n  24 
oin  \2 
16  bit  ou 
x465 
x473 
c  ond  i  t  i  on 
:  x465 

dev  ice: 
connec  t  i 
oins  3 , 
oins  !l, 
are  req 

Din   2 


intel  8212  8-bit  i /o  port,  ic 
ons : 

5, 7,9, 16, 18, 20,22  (di (1:8))  = 
6,8,10,15,17,19,21  (do(l:8)) 

(md)  =  +  5v 

(stb)  =  qnd 

(ds 1 -bar )  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0 

(v:c)  =  t5v 

(qnd )  =  qnd 

tout  Dort  comoosed  of  two  8  o 

is  for  low  order  byte 

is  for  hiqh  order  oyte 

-mode  outout  interface  hardwa 

intel  8212  8-bit  i /o  oort,  ic 
ons  : 

5, 7,9, 16, 1«,20,22  (di (1:8))  = 
6,3,10,15,17,19,21  (do( 1 :8) ) 

(iid)  =  *5v 

(stb)  =  qnd 

(dsl-bar)  =  wr-Dar 

(ds2)  =  out  .and.  (decode  a(0 

( vcc )  =  +  5v 

(qnd )  =  qnd 

-mode  outDut  interface  hardwa 

intel  3212  8-bit  i /o  oort,  ic 
ons  : 

5,7,9, 16, 18,20,22  (di (1:8))  = 
6,3,  10, 15, 17, 19,21  (do( 1:8)) 

(md)  =  +5v 

(sth)  =  qnd 

(dsl-bar)  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0 

( vcc  )  =  *-5v 

(qnd)  =  qnd 

tout  Dort  comoosed  of  two  8  b 

is  for  low  order  byte 

is  for  hiqh  order  oyte 

-mode  outDut  interface  hardwa 

intel  8212  8-bit  i /o  oort,  ic 
ons  : 

5,7,9, 16, 18,20,22  (di (1:8))  = 
6,3,10,15,17,19,21  (do(  1  :8) ) 

(md)  =  *5v 


88 

db(1  :3) 
=  x441 (1:8) 


: 7)  val ue  55) 

it  nor t  s 

re  to  issue 
89 
db(l:8) 

=  x449(  1:8) 


: 7 )  value  5b) 

re  to  issue 

90 

db(l :8) 

=  x457( 1 :8) 


:7)  value  57) 

it  Dorts 

re  to  issue 
91 

db(l :8) 
=  x465(l :8) 
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11 
1 

13 

2a 

12 


s  i  qna 1 


if  8  are 


D  i  n 

DJ  n 

oi  n 

d  i  n 

o  i  n 
condition 
xa73 
dev  i  ce : 
connec  t  i 

Dins  3 , 

Dins  a i 

req 

d  i  n 

d  i  n 

d  i  n 

D  i  n 

d  i  n 

oi  n 
1  6  bi  t 


2 
1  1 

1 
1  3 

2a 

12 


s  i  qna 1 


; i  f  8  are 


2 
1  1 

1 
13 
2a 
12 


s  i  qna 


#  i  f  8  are 


xa8l 

xa89 
cond i  t  i  on 
*a81 
device: 
connec  t  i 
Dins  3 , 
oins  a  , 
req 
Di  n 
D  i  n 
Di  n 
Di  n 
o  i  n 
D  i  n 
C  ond  i  t  i  on 
xa89 
device: 
connec  t  i 
Dins  3 , 
Dins  a / 
req 
oin   2 
oin  11 
Din   1 
Din  13 
di  n  2a 
Din  12 
16  d  i  t  ou 
xa97 
x505 
C  o n d  i  t  i  on 


(stb )  =  and 

( ds 1 -bar  )  =  w  r-ba  r 

(ds2)  =  out  .and.  (decode  a(0 

(\/zc)     -    +  5v 

(gnd)  =  qnd 

-mode  outDut  interface  hardwa 

intel  8212  8-bit  i/o  oort,  ic 
ons  : 

5,7,9,16, 18,20,22  (di  ( 1 :8)  )  = 
6,8,10,15,17,19,21  (do( 1  :8)  ) 

(md)  =  +5v 

(stb)  =  qnd 

(dsl-bar)  = 

(ds2)  =  out 

(vcc )  =  +  5v 

(qnd )  =  and 

tDUt  Dort  comDosed  of  two 

is  for  low  order  byte 

is  for  hiqn  order  oyte 

-mode  outout  interface  hardwa 


:  7  )  value  5  H ) 

re  to  issue 

92 

db( 1 :8) 
=  xa73( 1:8) 


wr-oa  r 

. and .  ( decode 


a(0:7)  val ue  59) 


8  bit  ports 


re  to  issue 
8212  8-bi  t  i /o  oort ,  i  c  93 


i  n  t  e 

ons  : 

5,7,9, 16, 1 8, 20, 22  (di (1:8))  = 

6,8, 10, 15, 17, 19,21  (do(l  :8)  ) 


(md)  =  *5v 
(stb)  =  qnd 
(dsl-bar)  = 
(ds2)  =  out 
( vcc )  =  +5v 
(qnd)  =  qnd 
-mode  out  out 


db( 1 :8) 
=  xa81  (1:8) 


wr-Dar 

.  and .  ( decode  a ( 0 


:  7)  val ue  60) 


interface  Hardware  to  issue 
1  8212  8-bit  i/o  oort,  ic  9a 


i  n  t  e 

ons  : 

5,7,9, 16, 18,20,22  ( di (1:8))  = 

6,8,10,15,17,19,21  (do( 1:8)) 

(mi)  =  f5v 

(stb)  =  qnd 

(ds 1 -bar  )  = 

(ds2)  =  out 

(vcc )  =  >5v 

(qnd)  =  qnd 

tout  Dort  co-noosed  of  two 

is  for  low  order  byte 

is  for  hiqh  order  oyte 

-mode  outDut  interface  hardwa 


db( 1 :8) 
=  xa89( 1:8) 


wr-oar 

.and.  ( decode 


a(0:7)  value  61) 


8  bit  port  s 


re  to  issje 
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si  qnal  :  xa97 

devi  ce : 
connec  t  i 
Dins  3 , 
pins  H  t 
/if  8  are  req 

oin  2 
Din  11 
oin  1 
Din  13 
oi  n  2a 
Din  12 
condition 
signal:  x505 

device: 
connec  t  i 
oins  If 
Dins  4  / 
;if  8  are  req 

Din   2 
oin  11 
oin   1 
Din  13 
Din  2a 
oin  12 
16  d  i  t  ou 
x513 
x521 
Condition 
s  i  gna 1  :  x  5 1 3 

dev  ice: 
connec  t  i 
oins  3  / 
oins  a  , 
/if  8  are  req 

oin  2 
Din  11 
Din  1 
oin  13 
Di  n  2a 
Din  12 
condi  t  i  on 
si  gna 1  :  x521 

dev  i  ce : 
connec  t  i 
Dins  3, 
Dins  a , 
/if  8  are  rea 

oin  2 
oin  11 
Din   1 


intel  8212  8-bi  t  i 
ons  : 

5, 7,9, 16, 18,20,22 
6/3/ 10,15,17, 19,21 

(md)  =  *5v 

(  s  t  b  )  =  g  n  d 

(dsl-bar)  =  w  r-oar 

( ds2 )  =  out  .an-). 

( v:c  )  =  +  5v 

( qnd )  =  qnd 

-mode  outout  inter 

intel  8212  8-bi  t  i 
ons  : 

5,7,9,16, 18,20,22 
6,8,10, 15, 17, 19,21 


/ o    oor  t ,  i  c  95 


(di ( 1 :8) )  = 
(do( 1 :8)  ) 


db( 1  :8) 
=  xa97( 1 :8) 


(decode  a(0: 7)  value  62) 


face  hardwa 

/o  oor t  ,  i  c 

(di  (1  :8)  )  = 
Mod  :8)  ) 


re  to  issue 

96 

db( 1 :8) 
=  x505(  1:8) 


(md)  =  +5v 

( st  o )  =  qnd 

(dsl-bar)  =  wr-oar 

(ds2)  =  out  .and.  (decode  a(0:7)  value  o3) 

i^jzc  )    -    +5v 

(  g  n  d  )  =  }  n  q 

tDjt  Dort  coTDosed  of  two  8  bit  ports 

is  for  low  order  p' 

is  for  hiah  order 

-mode  outout  inter 


of  two  8  b 
y  t  e 
oy  t  e 
face  hardwa 


i  ntel  8212  8-bi  t  i 

ons  : 

5,7,9,16, 13,20,22 

6,3,10,15,17,19,21 


/ o  oor t ,  i  c 

(di (1:8))  = 
(do(  1 :8) ) 


re  to  issue 

97 

db(l :8) 
=  x51 3( 1 :8) 


(md)  =  *5v 

( s  t  b )  =  qnd 

(dsl-bar)  =  w  r-ba  r 

(ds2)  =  out  .and.  (decode  a(0:7)  value  6a) 

( vcc )  =  +5v 

(qnd)  =  qnd 

-mode  outout  inter 


intel  8212  8-bi  t  i 

ons : 

5,7,9, 16/ 13,20,22 

6,3,10,15,17,19,21 

(md)  =  +5v 
(  s  t  b )  =  qnd 
(dsl-bar)  =  «/r-oar 


face  hardwa 

/o  oor t ,  i  c 

(di  (1 :8)  )  = 
(do( 1 :8)  ) 


re  to  issue 

98 

db( 1 :8) 
=  x52l (1:8) 
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Din  13  Hs2)  =  out  .and.  (decode  a(0:7)  value  65) 
oin  24  ( vcc )  =  +  5v 
Din  12  (qnd)  =  qnd 
condition  -node  input  interface  hardware  to  sense 
siqnal  KEYCHA 

devicetintel  6212  8  bit  i/o  o  o  r  t  ,  i  c  9  9 
connec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di  (  1  :8)  )  =  KE  YCnA ( 1 : 8  ) 
remainder  to 

q  r  o  u  n  d 

oins  4,6,8,  10,  15,  1  7,  19,21  Ho(  1  :8)  )  =  do(l:8) 
oin  2  ( md )  =  qnd 
oin  11  ( s t  o  )  =  qnd 

Din  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  8) 
oin  13  (ds2)  =  i no  .and.  doin 
oin  24  =  +5v 
Din  12  =  qnd 
condition  -node  inout  interface  Hardware  to  sense 
Siqnal  KEYCHA 

devicerintel  8212  «  bit  i/o  oort,ic  100 
c  onnec  t  i  ons : 
oins  3,5,7,9,16, 18,20, 22(di (9:16))  =  KEYCHA(9:16) 
r ema i  nder  t  o 

ground 

oins  a, 6, 8, 10, 15, 17, 19, 21( do (9:16))  =  db(9:l6) 

oin  2  ( md )  =  qnd 
oin  11  ( s t  D  )  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  8) 
oin  13  (ds?)  =  i no  .and.  dbin 
oin  24  =  *5v 
oin  12  =  qnd 
16  bit  output  Dort  co-noosed  of  two  8  Dit  ports 
x529  is  *or  low  order  byte 
x537  is  for  hiqh  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
s  i  ana  1  :  x529 

device:  intel  8212  «-oit  i/n  Dort,  ic  101 
connec  t  i  ons  : 
Dins  3,5,7,9,16,18,20,22  Hi (1:8))  =  db(l:8) 
Dins  4,6,8,10,15,17,19,21  (do(l:8))  =  *529(1:8) 
J  i  f  8  are    req 

pin   2  (mi)  =  +5v 
Din  11  (stb)  =  qnd 
oin   I  (dsl-bar)  =  wr-oar 

oin  13  Hs2)  =  out  .and.  (decode  a(0:7)  value  66) 
oi  n  24  ( v:c  )  =  +5v 
oin  12  (qnd)  =  qnj 
condition-mode  outout  interface  hardware  to  issue 
s  i  qna 1  :  x537 
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device:  intel  8212  8-bit  i/o  oort,  ic  102 
connec  t  i  ons : 
Dins  3,5,7,9,16,18,20,22  fell  (1:8))  =  db(l:8) 

pins  4,6,8,10,15,17,19,21  (do (1:8))  =  x537(l:8) 
;  i  f  8  are  req 

pin  2    (md)  =  +5v 
oin  11  (stb)  =  gnd 
Din   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a ( 0 :  7 )  value  6  7) 
oin  24  (v:c)  =  +  5v 
pin  12  (gnd)  =  gnd 
condition  "node  inout  interface  hardware  to  sense 
signal  <EtCHA 

device:intel  8212  8  bit  i/o  oort,ic  103 
connec  t  ions: 
Dins  3,5,7,9, 16, 18,20, 22(di (1 :8))  =  KEYCHA(l:8) 
r  ema i  nder  t  o 

ground 

oins  a, 6, 8, 10, 15, 1 7, 19,21 (do( 1 :«) )  =  db(l:8) 
oin  2  (md)  =  gnd 
pin  11  (  st  o  )  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  9) 
oin  13  (  d  s  2  )  =  inD  .and.  doin 
oin  24  =  f  5  v 
oin  12  =  gnd 
condition  node  inout  interface  hardware  to  sense 
signal  <EYCHA 

device:intel  8212  8  bit  i/o  oort,ic  104 
c  onnec  t  i  ons : 
oins  3,5,7,9, 16,  18,20, 22(di  (9:  16)  )  =  KEYCHA(9:16) 
r ema  i  nder  t  o 

ground 

oins  4,6,8,  10,  15,  17,  19,21  (do(9:  16) )  =  db(9:l6) 
oin  2  ( md )  =  gnd 
oin  11  ( st  o )  =  gnd 

pin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  9) 
oin  13  (ds?)  =  i np  .and.  doin 
oin  24  =  +5v 
oin  12  =  gnd 
condition  mode  inout  interface  hardware  to  sense 
signal  KEYCHA 

device:intel  8212  8  Oit  i/o  oort,ic  105 
connec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di (1:8))  =  KEYCHA(l:8) 
r ema  i  nder  t  o 


qround 


oins  4,6,8, 10, 15, 17, 19,21 (do(l :«))  =  do(l:8) 
oin  2  (md )  =  and 
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oin  11  ( st  o )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a  ( 0 :  7 )  value  10) 
Din  13  (ds2)  =  ino  .and.  doin 
oin  24  =  *5v 
Din  12  =  qnd 
condition  -node  inout  interface  hardware  to  sense 
sianal  KErCHA 

devicerintel  8212  8  bit  i /o  oortric  10b 
c  onnec  t  i  ons  : 
oins  3,5,7,9, 16, 18,20, 22(di (9:16))  =  KEYCHA(9:lb) 
remainder  to 

ground 

oins  4,6,8, 10, 15, 17, 19,21 (do(9: 16))  =  db(9:16) 

Din  2  (md)  =  and 
Din  11  ( st  o )  =  and 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  10) 
oin  13  (ds2)  =  ino  .and.  doin 
oin  24  =  +  5v 
oin  12  =  and 
condition  node  inout  interface  hardware  to  sense 
signal  ^ANPOS 

devicerintel  8212  8  bit  i /o  oort,ic  107 
c  onnec  t  i  ons  : 
oins  3,5,7,9, 16, 18,20, 22(di (1:8))  =  MANP0S(lr8) 
remainder  to 

ground 

oins  4,6,8, 10, 15, 1 7, 19,21 (do(l:8))  =  do(l:8) 
oin  2  (md)  =  gnd 
oin  11  ( s t  o )  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  11) 
Din  13  (ds2)  =  ino  .and.  doin 
oin  24  =  +5v 
oin  12  =  gnd 
condition  node  inout  interface  hardware  to  sense 
signal  ^ANPOS 

devicerintel  8212  8  bit  i/o  oort/ic  108 
connec  t  i  ons  : 
oins  3,5,7,9, lb, 18,20, 22(di (9: 16))  =  MANP0S(9:16) 
remainder  to 


ground 


Dins  4,6,8, 10, 15, 17, 19,21 (do(9: 16)  )  =  db(9:l6) 
Din  2  (md)  =  gnd 
oin  11  (sto)  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(8:15)  value  11) 
oin  13  (ds?)  =  ino  .and.  doin 
oin  24  =  +5v 
oin  12  =  gnd 
condition  node  inout  interface  hardware  to  sense 
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signal  KEYCHA 

devi ce:  i ntel  8212  8  bit  i /o  oort,ic  109 
connect  ions: 
Dins  3,5,7,9, 16, 18,20, 22(di  (1:8) )  =  KEYCHA(1:8) 

r»mai nder  t  o 

ground 

oins  a, 6, 8, 10, 15,17,19,21(do(l:8) )  =  do(l:8) 
oin  2  ( md )  =  qnd 
oi  n  11  (  st  o  )  =  qnd 

Din  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  12) 
oin  13  (  d  s  2  )  =  ino  .and.  doin 
oin  2a  =  +  5  v 
oin  12  =  gnd 
condition  -node  inout  interface  hardware  to  sense 
sianal  KEYCHA 

device:intel  8212  8  bit  i /o  oortnc  110 
connec  t  i  ons : 
oins  3,5,7,9, 16, 18,20, 22(di (9:16))  =  KEYCHA(9:16) 
remainder  to 

groun  1 

oins  a, 6, 8, 10, 15,17, 19,21(do(9:16))  =  db(9:16) 

oin  2  ( md )  =  qnd 
oin  11  ( s t  D  )  =  qnd 

oin  1  (dsl-bar)  =  .not.  (decode  a ( 8 :  1 5 )  value  12) 
oin  13  (ds2)  =  i nD  .and.  doin 
oin  2  4  -     f  5v 
Din  12  =  qnd 
16  bit  outojt  port  comDosed  of  two  8  bit  ports 
x545  is  for  low  order  byte 
x553  is  for  hiqh  order  oyte 
condition-mode  outout  interface  hardware  to  issue 
s  i  qna 1  :  x  545 

device:  intel  8212  8-bit  i /o  oort,  ic  111 
connec  t  i  ons : 
oins  3,5,  7, 9, 16, 18,20,22  Cdi(l:8))  =  db(l:8) 
oins  ^,5,8,10,15,17,19,21  (do(l:8))  =  x545(l:B) 
J  i  f  8  are  req 

oin   2  (mj)  =  +  5v 
Din  11  (stb)  =  gnd 
oin   1  (dsl-bar)  =  wr-oar 

oin  13  (ds2)  =  out  .and.  (decode  a(0:7)  value  68) 
oin  24  (vcc)  =  +5v 
oin  12  (and)  =  qnd 
condition-mode  outout  interface  hardware  to  issue 
s  i  qna 1  :  x  553 

device:  intel  8212  8-bit  i /o  Dort,  ic  112 
connec  t  i  ons : 
oins  3,5,7,9,16,18,20,22  (di (1:8))  =  db(l:8) 
Dins  a, 6, 3, 10, 15, 17,  19,21  (do(l:8))  =  x553(l:8) 
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;  i  f  8  are  req 


p  i  n 


n  2     (mj)  =  +5v 
n  11  ( st  b )  =  gnd 


1  (dsl-bar)  =  wr-oar 


Din  13  (  d  s  2  )  =  out  .and.  (decode  a(0:7)  valje  t>  9 ) 
oin  24  (v:c)  =  +Sv 
Din  1 2  ( gnd )  =  gnd 
condition  Tiode  input  interface  hardware  to  sense 
signal  KEYCHA 

devicerintel  8212  8  oit  i /o  oort,ic  113 
connections! 
Dins  3, 5,7, 9, 16, 18,20,22(di ( 1 :8) )  =  KEYCHAC1:8) 
remainder  to 


ground 


Dins  4,6,8, 10, 15, 17, 19,21 (do(l:8))  =  db(l:8) 

oi  n  2  ( md  )  =  gnd 

Din  11  ( st  o )  =  gnd 

oin  1  (dsl-bar)  =  .not.  (decode  a(0:7)  value  13) 

Din  13  (ds2)  =  ino  .and.  dbin 

Din  2a  =  +5v 

oin  12  =  gnd 
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